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ABSTRACT 

The  mandate  of  a  cost  conscious  Congress  and  American  people  caused 
NAVSEASYSCOM  to  commission  a  study  to  identify  areas  for  improvement  within 
US  Naval  Shipyards.  Budget  development  and  control  was  one  area  identified.  The 
focus  of  this  thesis  is  centered  on  a  single  shipyard,  the  Mare  Island  facility,  detailing 
the  budgeting  operations  of  one  of  its  departments.  The  objective  is  to  develop  an 
initial  pilot  project,  a  prototype  Decision  Support  System  (DSS),  that  will  address  the 
concerns  of  budget  preparation,  control  and  variance  analysis.  Additionally,  this 
project  assesses  the  feasibility  of  larger  DSS  efforts  within  the  shipyard.  The 
methodology  of  the  development  was  a  blend  of  structured  and  typical  DSS 
approaches,  providing  flexibility  with  rigorous  documentation.  Further  effort  toward 
integrating  the  fmdings  of  this  thesis  with  the  present  accounting  system  is 
recommended  to  expand  the  use  of  decision  support  within  the  shipyard. 
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THESIS  DISCLAIMER 

The  reader  is  cautioned  that  computer  programs  developed  in  this  research  may 
not  have  been  exercised  for  all  cases  of  interest.  While  every  effort  has  been  made, 
within  the  time  available,  to  ensure  that  the  programs  are  free  of  computational  and 
logic  errors,  they  cannot  be  considered  validated.  Any  application  of  these  programs 
without  additional  verification  is  at  the  risk  of  the  user. 
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I.  INTRODUCTION 

A.      BACKGROUND 

In  past  years,  Naval  Shipyards  operated  in  a  "zero  gain/zero  loss"  mode.  That 
orientation  is  rapidly  changing.  The  thrust  of  this  change  is  that  Defense  Department 
managers  must  be  concerned  with  costs.  In  keeping  with  this  spirit, 
NAVASEASYSCOM  commissioned  a  study  of  US  Naval  Shipyards  to  identify 
functional  areas  needing  improvement.  The  contracted  analysts  investigated  all  areas 
of  the  shipyards  and  found  numerous  problems.  In  the  MIS  systems  area  it  was  found 
that  the  central  system  was  behind  technology  and  producing  poor  management 
reports. 

Budget  development  and  control  was  also  found  to  be  lacking.  In  the  past  there 
was  little  incentive  to  be  concerned  with  budgets,  since  cost  was  not  a  critical  concern. 
But  budget  preparation  is  particularly  important  in  maintaining  control  of  costs.  There 
will  be  little  improvement  unless  a  budget  and  expense  monitoring  capability  is 
provided  for  the  shipyard  managers.  In  light  of  these  concerns  and  developments,  this 
study  undertook  to  develop  and  investigate  the  feasibility  of  a  Decision  Support 
System  (DSS)  that  would  assist  managers  at  the  shipyard  with  budget  preparation  and 
control.  Additionally,  the  specific  methods  of  cost  classification  at  Naval  Shipyards  are 
discussed.  These  classifications  are  by  Cost  Center,  Cost  Function,  and  Cost  Class, 
and  are  the  vehicles  by  which  costs  are  portrayed. 

Within  the  Management  Engineering  and  Information  Office  (MEIO),  at  the 
Mare  Island  Naval  Shipyard,  budget  development  and  control  is  performed  by  the 
department  budget  analyst  with  inputs  from  the  department  managers.  Departmental 
budgets  are  presently  developed  annually.  The  primary  budget  process  inputs  originate 
from  the  Comptroller  with  additional  inputs  from  within  MEIO,  although  these  are  not 
formal  inputs. 

Budget  analysts  are  also  responsible  for  providing  responses  to  ad  hoc  queries 
from  the  shipyard  and  department  managers.  Those  queries  can  come  in  the  form  of 
requests  for  cost  accrual  analysis  to  investigations  of  variances  the  managers  feel  may 
be  potential  problem  areas. 
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The  Shipyard  Automated  Budget  Reporting  System  (SABRS)  is  a  new  addition 
to  the  shipyard's  accounting  systems.  It  will  allow  in  depth  cost  analysis,  and 
assistance  in  the  preparation  of  budgets.  Presently,  not  all  of  its  features  are 
operational. 

B.  OBJECTIVES 

The  primary  objective  of  this  thesis  is  to  develop  an  initial  pilot  project,  a 
prototype  DSS,  that  will  initially  address  the  concerns  of  budget  preparation,  control 
and  variance  analysis  within  the  Mare  Island  Naval  Shipyard.  In  addition,  it  is 
intended  that  this  DSS  will  be  the  first  step  in  a  larger  effort  to  provide  managers 
access  to  an  easy  to  use,  graphically  oriented,  and  organization-wide  system.  With 
these  objectives  in  mind,  the  final  objective  will  be  to  assess  the  applicability  of  larger 
DSS  efforts  within  the  shipyard. 

A  byproduct  of  the  project  will  be  to  provide  understanding  and  insights  into  the 
use  of  programs  that  are  on-hand  at  the  shipyard  and  incorporated  into  the  DSS.  We 
feel  that,  in  the  past,  most  organizations  have  had  a  tendency  to  go  for  the  salesman's 
hype,  rather  than  exhausting  the  possible  capabilities  of  present  systems  first.  The 
hope  is  that  the  users  will  at  least  be  given  the  tools  with  this  DSS  to  further  explore 
on-hand  programs. 

C.  RESEARCH  QUESTIONS 

The  most  important  question  to  answer  in  this  research  is,  what  is  the  best 
method  to  integrate  the  available  tools  to  produce  a  coordinated,  specific  DSS?  The 
insights  gained  from  this  effort  will  identify  the  best  way  to  develop  future  DSS's. 

Secondly,  we  attempted  to  investigate  the  most  efficient  methodology  of  system 
development.  To  do  this  we  followed  the  iterative  approach  identified  by  Keen,  Scott 
Morton  [Ref.  1]  and  Sprague  and  Carlson  [Ref.  2].  Also,  we  elected  to  use  the 
"structured  techniques"  of  Yourdon  [Ref.  3]  and  De  Marco  [Ref.  4]  where  applicable. 
The  structured  approach  is  more  rigorous  in  its  requirement  for  documentation.  This 
will  be  prove  to  be  beneficial  for  the  users  in  enhancing  their  understanding,  and  for 
later  developers  conducting  maintenance  and  expansion. 

D.  SCOPE  AND  LIMITATIONS 

We  approached  this  project  as  a  prototype,  an  experiment  to  determine  the 
applicability  of  a  DSS  to  shipyard-wide  decision  support  for  management.    The  intent 
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was  to  learn  from  this  experiment,  refine  the  results,  and  subsequently  expand  the 
system.   In  effect,  this  project  was  a  feasibility  study. 

In  order  to  meet  the  requirements  of  resources  and  time,  the  scope  of  this  project 
was  limited  to  the  budget  analysis  and  control  requirements  of  MEIO.  This  fact  does 
not  diminish  the  information  to  be  learned. 

The  DSS  was  implemented  on  two  systems:  a  PRIME  9755  minicomputer  which 
is  linked  in  a  shipyard- wide  Local  Network  and  a  standalone  IBM  microcomputer 
configuration.  The  requirement  to  use  the  PRIME  was  a  limitation  because  it  required 
us  to  learn  a  new  system  and  language.  It  was  also  an  opportunity  since  any  useful 
systems  developed  could  easily  be  used  by  any  other  department  on  the  Local 
Network.  Additionally,  as  mentioned  earlier,  the  minicomputer  implementation  made 
use  of  programs  presently  available  at  the  shipyard.  The  resource  constraints  and  the 
experimental  nature  of  this  project  precluded  purchasing  software  that  would  meet  the 
needs  of  shipyard  managers. 

The  portions  of  the  project  written  by  the  authors  were  done  in  PRIME'S 
Command  Processor  Language  (CPL)  for  the  minicomputer  and  C  for  the 
microcomputer.  They  allowed  the  use  of  structured  programming  techniques  and 
constructs,  which  we  felt  were  essential  to  producing  code  with  minimal  errors.  Both 
of  these  helped  to  support  the  rapid  development  approach  required  with  the  iterative 
prototyping  methodology. 

E.       LITERATURE  REVIEW  AND  METHODOLOGY 

1.  Literature  Review 

In  an  attempt  to  clarify  the  term  DSS,  a  literature  review  was  conducted  to 
provide  a  general  definition  based  upon  those  suggested  by  the  key  investigators  in  this 
area  of  research.  DSS,  as  opposed  to  MIS,  attempts  to  work  in  the  vague  arena  of 
unstructured  problems.  To  highlight  the  differences,  the  "structured  techniques"  were 
compared  to  the  usual  DSS  development  approach.  In  certain  ways,  we  noted  some 
parallels  and  similarities.  An  important  parallel  is  seen  in  the  logical  first  step  of  each. 
The  structured  approach  looks  at  problem  definition,  the  DSS  approach  to  the 
identification  of  a  key  decision.  Those  starting  points  provide  the  scope  within  which 
the  project  developments  take  place. 

The  authors  we  reviewed  stressed  the  importance  of  organizational  approaches 
to  DSS  development  strategies.    Integrating  DSS  to  the  organization  requires  careful 
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planning.  The  technology  levels,  the  appropriate  tactical  option,  and  a  coherent 
"action  plan"  for  DSS  must  be  carefully  selected.  The  hygiene  issues  facing  a  DSS 
development  are  critically  important  to  the  success  of  the  system.  These  environmental 
issues  require  close  consideration  by  any  would-be  developer. 

In  conducting  the  analysis  for  a  DSS,  we  highlight  one  proposed  by  Sprague 
and  Carlson  [Ref.  2].    It  is  an  alternative  pattern  of  analysis  which  is  different  than  the 
usual  systems  analysis  methods,  in  that  it  is  process  independent  and  not  data  driven. 
2.  Methodology 

The  development  effort  of  this  thesis  was  a  blend  of  structured  and  DSS 
approaches,  using  each  where  it  was  most  logical.  This  provided  us  with  a  very  flexible 
methodology.  The  cornerstone  was  "iterative  development,"  which  was  the  cement 
that  united  the  two  disparate  methodologies  we  incorporated. 

Our  goal  was  to  have  the  flexibility  of  the  DSS  approach,  but  retain  the 
rigorous  documentation  standards  of  the  structured  techniques.  Therefore,  we  used  the 
structured  techniques  within  the  overall  framework  of  the  DSS  approach. 

We  also  identified  the  need  to  include  data  base  development  requirements 
within  our  methodology.  The  data  base  is  important  to  the  operation  of  DSS  systems, 
so  those  issues  should  not  be  ignored. 

F.  SUMMARY  OF  FINDINGS 

The  methodology  we  selected  provided  us  with  a  flexible,  but  rigorous 
development  environment.  This  would  essentially  equate  to  the  prototyping  approach 
mentioned  by  Yourdon  [Ref.  3].  For  DSS,  the  slack  produced  by  this  methodology  is 
essential  because  of  the  vague  nature  of  unstructured  problems. 

We  also  found  that  the  structured  techniques  that  are  actively  employed  within 
the  general  DSS  framework  were  absolutely  necessary  to  ensure  that  sufficient 
documentation  was  developed  with  the  prototype  system  to  assist  future  development 
efforts.  In  fact,  the  techniques  fit  very  well  with  the  DSS  approaches  we  identified. 
Both  sides  of  the  coin  are  needed.  The  blending  rests  clearly  with  the  iterative  nature 
of  DSS  approaches.  Without  it,  the  reconciliation  between  the  dissimilar  approaches 
could  not  be  bridged. 

G.  ORGANIZATION  OF  STUDY 

Chapter  Two  presents  the  background  on  the  Mare  Island  Naval  Shipyard  and 
its  present  systems.    The  reader  is  given  an  appreciation  of  the  problems  facing  the 
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shipyard  managers  and  how  our  project  is  an  attempt  to  deal  with  one  area:  budget 
preparation,  control,  and  variance  analysis. 

Under  the  framework  identified  by  the  background,  the  issues  concerning  DSS 
development  in  the  current  literature  are  discussed  in  Chapter  Three.  This  presents  the 
current  understanding  of  the  role  of  Decision  Support  Systems,  and  provides  a  specific 
definition. 

Refining  the  general  issues  further,  Chapter  Four  presents  the  methodology  we 
followed  in  our  development  effort.  This  methodology  is  an  outgrowth  of  the  areas  of 
importance  identified  during  the  literature  review  and  the  background  study. 

Chapter  Five  presents  the  pilot  projects  which  we  developed,  defining  specific 
design  issues  we  faced.  Chapter  Six  develops  an  analysis  of  the  projects  presented  in 
Chapter  Five.  We  focus  on  lessons  learned  and  identify  key  areas  of  concern  for  future 
developers. 
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II.  BACKGROUND 

A.      THE  COOPERS  AND  LYBRAND  STUDY 

During  1985,  the  Coopers  and  Lybrand  accounting  firm  conducted  a 
management  analysis  of  all  US  Naval  Shipyards.  The  scope  of  the  analysis  consisted 
of  all  functional  areas  of  shipyard  operations  and  management. 

In  the  MIS  arena,  they  found  that  the  central  system  is  woefully  behind 
technology.  It  produces  reports  which  are  not  timely  and  are  marginally  useful. 
Additionally,  NAVSEASYSCOM  gave  little  direction  concerning  the  growth  and 
acquisition  of  the  hardware  and  software  components  of  computer  systems  for  the 
shipyards.   Consequently,  both  external  and  internal  incompatibility  resulted. 

Budget  development,  execution  and  control  were  also  found  to  be  lacking.  In  the 
past,  managers  had  little  incentive  to  keep  budgets  under  control  since  cost  was  not  a 
critical  management  concern.  The  present  budget  concerns  of  the  Congress  and  the 
American  people  have  resulted  in  the  need  for  all  government  agencies  and  activities  to 
take  a  closer  look  at  the  management  of  their  operations,  and  take  the  necessary 
actions  to  rectify  situations  where  resources  are  wasted. 

As  stated  in  the  Coopers  and  Lybrand  report  [Ref.  5:  p.  FIN-21]: 

"The  (present)  budget  process  does  not  support  meaningful  variance  analysis. 
Several  factors  contribute  to  this  problem:" 

The  budget  is  perceived  bv  manv  shipvards  as  a  funding  tool  and  is  not 
effectively  used  as  a  planning'  and  control  tool. 

The  budget  loses  credibility  as  an  effective  management  tool  because  it  does  not 
adequately  account  for  the  impact  of  changes  in  demand.  It  is  not  capable  of 
effectively  supporting  analvses  of  spending  and  volume  variances,  particularlv  at 
the  department  of  responsibility  center  level. 

Specifically  associated  with  managing  costs  in  the  shipyards  was  the  lack  of 
sufficient  incentives  "for  departments  to  come  in  under  budget." 

The  budget  is  viewed  as  a  spending  limit,  not  a  spending  target.. .The  NIF  budget 
policy  manual  [Ref.  6]  even  states  that  'the  budget  is  a  plan  of  the  activitv'to 
attain  a  cumulative  no  gain/no  loss  position  at  the  end  of  the  budget  vear.'  The 
manual  says  further  that  'the  established  overhead  rates  should  bewdeveloped...so 
that  zero  balance  variance  between  actual  and  applied  overhead  is  achieved  at 
year  end  to  avoid  the  requirement  of  distribution  thereof. 
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This  attitude  encourages  department  managers  to  spend  to  their  budget  limits 
because  they  believe  that  favorable  budget  variances  frequently  result  in  a 
reduction  in  subsequent  budset  allowances.  While  the  financial  systems  are 
capable  of  isolating  poor  performance,  they  are  not  effective  at  identifying  and 
rewarding  good  performance.  The  manager  who  does  have  a  favorable  budget 
variance,  not  only  does  not  set  favorable  recognition,  but  may  also  find  himself 
with  reduced  funds  the  next  fiscal  period 

Budgets  were  prepared  quarterly  or  annually  before  the  study  was  initiated.  The 
management  analysts  of  Coopers  and  Lybrand  were  concerned  by  this  practice.  They 
believed  monthly  budget  preparation  would  improve  the  quality  of  the  planning 
process  [Ref.  5:  p.  FIN-17-18]. 

"Departments  are  not  required  to  justify  projected  costs  in  sufficient  detail. 
Projected  costs  are  not  based  on  key  activity  indicators."  [Ref.  5:  p.  FIN- 18]  Managers 
need  some  method  of  analyzing  various  costs  in  order  to  analyze  variances,  to  project 
future  budgets  and  to  defend  those  budget  projections.  They  need  performance 
measures  or  indicators  to  chart  their  current  status. 

The  study  also  reported  that  managers  were  not  generally  involved  in  the 
preparation  of  their  departments'  budgets.  "Since  these  managers  lack,  a  sense  of 
ownership  for  the  budget,  it  loses  some  of  its  effectiveness  as  a  motivation  tool." 
[Ref.  5:  p.  FIN- 19] 

Budget  effectiveness  was  reduced  because  of  the  poor  quality  of  budget 
submissions.  Many  budgets  required  later  revision.  "In  addition,  shipyard 
management  emphasizes  total  departmental  control  points.  Little  emphasis  is  placed 
on  adherence  to  the  budget  on  a  line  item  basis.  For  example,  an  analysis  of  the  year 
end  actual  versus  budget  report  for  a  shop  in  one  shipyard  identified  by  the  study 
[Ref.  5:  p.  FIN-20]: 

1.  Six  line  items  with  expenses  up  to  S  107,000,  but  no  budgeted  amounts. 

2.  Twelve   items   with   ranges    of  favorable   budget   variances,    from   S3000   to 
S248.000.  6  6 

3.  Thirteen  line  items  with  unfavorable  budget  variances  from  S1000  to  5142,000. 
Budget  variances  are  determined  by  comparing   budgeted  amounts   to   actual 

expenses.  If  the  actual  expense  is  less  than  the  budgeted  amount,  a  favorable  variance 
exists.  An  unfavorable  variance  occurs  if  the  actual  expense  is  greater  than  the 
budgeted  amount.   Unfavorable  variances  are  to  be  avoided. 
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B.       COST  CLASSIFICATION 

Two  important  means  of  classifying  costs  are  by  Cost  Function  and  by  Cost 
Class.  Cost  functions  group  costs  into  functional  areas.  Each  Cost  Center,  which  is 
equivalent  to  a  department,  has  several  Cost  Functions  under  it,  depending  on  the 
nature  of  its  work.  For  example,  the  MEIO  is  Cost  Center  9110.  Under  its  control  are 
eight  Cost  Functions  designated  numerically  from  9112  to  9119.  Table  I  shows  the 
names  of  these  Cost  Functions. 


TABLE  1 

COST  FUNCTIONS 

9112 

Administration 

9113 

Administration 

9114 

Rental  and  Maintenance  of  ADP  Equipment 

9115 

Operations 

9116 

Control  and  Scheduling 

9117 

EDP  Operations 

9118 

Key  Entry  Operations 

9119 

NAVSEA  NSY  MIS  Program 

Each  expense  incurred  by  MEIO  falls  under  one  of  the  listed  Cost  Functions. 
The  sum  of  the  expenses  of  all  Cost  Functions  under  a  Cost  Center  is  the  amount 
expended  by  that  Cost  Center.  Cost  Functions  relate  to  Resource  Management 
System  functional/ subfunctional  categories  defined  inthe  Navy  Comptroller's  Manual 
[Ref.  7]. 

Cost  Class  is  another  way  expenses  are  classified.  A  Cost  Class  is  the 
identification  of  the  type  of  an  expense.  They  relate  to  elements  of  expense,  under  the 
RMS  system,  "which  tell  what  kind  of  resources  are  used  [Ref.  7]."  Each  Cost  Center 
has  certain  authorized  Cost  Classes.  MEIO,  for  example,  is  authorized  21  different 
Cost  Classes  under  which  it  may  spend.  Table  2  lists  the  authorized  Cost  Classes  for 
Cost  Center  9110. 
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TABLE  2 

COST  CLASS 

02 

Supervision,  Graded 

03 

Non  Supervision,  Graded 

04 

Non  Supervision,  Ungraded 

10 

Lost  Time 

11 

Time  Allowed 

12 

Consumeable  Supplies 

19 

Coding  Rejects 

23 

Union  Activities 

28 

Alterations 

30 

Travel 

32 

Rent  and  Communications 

33 

Printing,  Reproduction,  and  Duplicating 

39 

Training,  Other 

43 

Depreciation  of  Purchased  Equipment 

54 

Shop,  General  Non  Labor 

68 

Acquisition  of  Minor  Property 

91 

ADP  Supervision 

92 

ADP  Analyst/ Programmer 

93 

ADP  Operations 

94 

ADP  Rent/ Communications 

95 

ADP  Maintenance 

96 

ADP  Contractual  Services 

97 

ADP  Consumeable  Supplies  and  Installatior 

98 

ADP  Minor  Property 

99 

ADP  Training 

All  expenses  are  thus  classified  under  both  Cost  Function  and  Cost  Class.   Only 
certain  Cost  Classes  are  authorized  under  a  given  Cost  Function  however.    A  Cost 
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Class  can  be  present  in  many  Cost  Centers,  unlike  Cost  Functions  which  are  related  to 
their  particular  Cost  Center  only.  Table  3  shows  the  authorized  Cost  Classes  for  the 
Cost  Functions  under  the  Cost  Center  9110. 


TABLE  3 

AUTHORIZED  COST  FUNCTIONS/COST  CLASSES 

Y  = 

AUTHORIZED  N  - 

=  NOT  AUTHORIZED 

Cost 

Function 

Cost 

Class 

9112 

9113 

9114 

9115 

9116 

9117 

9118  9119 

02 

Y 

Y 

N 

Y 

Y 

Y 

Y 

Y 

03 

Y 

Y 

N 

Y 

Y 

Y 

Y 

Y 

04 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

11 

Y 

Y 

N 

Y 

Y 

Y 

Y 

Y 

12 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

23 

N 

Y 

N 

N 

N 

Y 

Y 

N 

28 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

30 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

32 

N 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

33 

Y 

N 

Y 

Y 

Y 

Y 

Y 

Y 

39 

Y 

Y 

N 

Y 

Y 

Y 

Y 

Y 

43 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

54 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

68 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

91 

Y 

Y 

N 

Y 

Y 

Y 

Y 

N 

92 

N 

Y 

N 

N 

N 

N 

N 

N 

93 

Y 

Y 

N 

Y 

Y 

Y 

Y 

N 

94 

N 

N 

Y 

N 

N 

N 

N 

N 

95 

N 

N 

Y 

N 

N 

Y 

N 

N 

96 

Y 

Y 

N 

N 

N 

Y 

N 

N 

97 

Y 

N 

N 

N 

N 

Y 

N 

N 

98 

Y 

N 

Y 

N 

N 

N 

N 

N 

99 

Y 

Y 

N 

N 

N 

Y 

N 

N 

C.       THE     PRESENT    MEIO     BUDGET    CONTROL     AND     DEVELOPMENT 
PROCESS 

As  pointed  out  by  Coopers  and  Lybrand,  the  department  manager  is  responsible 
for  his  department's  budget,  and  therefore  should  be  involved  in  the  budget 
development  process.  His  involvement  comes  in  the  form  of  monitoring  the 
development  process. 

The  budget  control  and  development  activity  within  MEIO  involves  two  key 
groups:    the  departmental  managers  and  budget  analyst.    In  most  cases  their  give  and 
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take  in  identifying  resources  required  develops  the  budget  over  time.  Various  managers 
submit  their  sections'  needs  and  the  budget  analyst  reconciles  those  with  direction  from 
top  department  management  and  the  Controller  department.  The  key  to  this  process  is 
"that  the  lines  of  budget  submission  and  approval  must  follow  the  lines  of 
organizational  responsibility."  [Ref.  7:  p.  C-4]  This  process  is  graphically  depicted  in 
the  structured  specification  in  Appendix  A. 

Departmental  budgets  are  prepared  annually  and  submitted  to  the  shipyard 
Comptroller.  They  are  developed  by  the  particular  department's  budget  analyst  with 
various  inputs  and  constraints  presented  from  within  the  department  and  without. 
Budget  request  inputs  and  clarifications  are  received  from  departmental  managers. 
Specific  MEIO  requirements  and  constraints  are  received  from  the  top  departmental 
management.  The  Comptroller's  office  submits  various  budget  constraints  to  all 
shipyard  departments.  These  include  dollar  ceilings  and  floors,  and  leave  hours  not  to 
exceed  14%  of  the  total  budget  for  labor. 

Initially,  when  we  were  studying  the  process  to  develop  the  descriptive  analysis, 
budget  input  reports  were  produced  and  distributed  by  the  Data  Processing  section  of 
MEIO.  These  reports  were  developed  from  information  submitted  by  the 
Comptroller's  office.  With  the  advent  of  a  new  shipyard  accounting  system,  SABRS, 
the  majority  of  these  reports  were  consolidated  into  one,  and  now  originate  directly 
from  the  Comptroller  department.  At  the  present  time  the  report  is  printed  and 
distributed  manually;  however,  in  the  future  it  is  anticipated  that  it  will  be 
electronically  distributed  through  the  Prime  network. 

At  the  outset  of  our  analysis,  SABRS  was  still  in  the  coding  and  testing  stage  but 
past  the  projected  implementation  stage.  The  original  contractor  had  been  replaced 
and  the  learning  curve  for  the  new  programmers  delayed  the  implementation.  SABRS 
was  implemented  at  the  beginning  of  fiscal  year  1987,  which  was  in  the  middle  of  our 
system  development.  Consequently,  SABRS  is  the  information  generation  system  that 
we  shall  consider  throughout  this  discussion,  and  not  the  old  reports  system. 

After  the  budget  input  reports  are  received,  they  are  used  to  track  budget 
performance.  Performance  reports  compare  budgeted  to  actual  expense  by  Cost 
Function,  Cost  Class,  Cost  Function/Cost  Class,  Cost  Center,  or  by  total  for  the 
shipyard.  These  reports  also  serve  as  the  basis  for  developing  reports  in  response  to 
departmental  managers'  queries.  These  queries  are  ad  hoc  in  the  sense  that  they  are 
not   formalized,   but   may   be   requested  when   managers   feei   a   need  to   monitor  a 
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particular  aspect  of  the  budget.  For  example,  prior  to  the  implementation  of  the 
SABRS  system,  the  shipyard  Commanding  Officer  requested  a  breakdown  of  costs  for 
each  department  by  Cost  Classes.  The  reports  used  at  that  time  did  not  have  the 
information  summarized  by  Cost  Class  for  each  department  and  the  computer  center 
did  not  have  the  time  to  handle  this  one  time  request.  Therefore,  the  information  had 
to  be  extracted  by  hand  from  the  existing  reports.  This  was  not  only  time  consuming 
for  the  budget  analysts,  but  also  demonstrates  the  state  of  the  current  computer 
system.  The  desired  data  was  on  the  computer  but  there  was  no  easy  way  to  extract  it 
electronically. 

Potential  problems  are  detected  by  either  the  managers  of  a  particular 
department  or  by  the  budget  analyst.  If  a  manager  finds  a  potential  problem  in  the 
performance  report,  he  will  contact  the  budget  analyst  who  will  research  the  problem. 
The  reason  causing  an  unfavorable  variance  can  be  determined,  and  the  manager  can 
decide  if  action  is  warranted  to  correct  the  problem.  Or  the  "problem"  may  be  the 
result  of  planned  expenses  and  not  a  real  problem  at  all. 

Likewise,  if  the  budget  analyst  detects  a  potential  problem,  she  will  alert  the 
appropriate  managers.  When  further  information  is  desired  for  clarification,  job  order 
information  that  is  associated  with  the  expense  may  be  accessed.1  By  accessing  on-line 
job  order  information,  detailed  information  on  an  expense  can  be  obtained.  This 
ideally  will  clarify  any  questionable  variances. 

D.      SABRS 

SABRS  is  a  newly  implemented  accounting  system  with  some  interactive  capability.  It 
is  primarily  intended  to  be  used  by  the  shipyards  in  the  preparation  of  their  annual 
budgets  for  submission  to  NAVCOMPT.  It  is  an  on-line  system  with  several 
capabilities. 

SABRS  I  is  to  be  utilized  by  the  budget  officers  and  department  budget  analysts 
to  project  costs  using  prior  year's  actual  costs,  escalation,  and  acceleration  projection 
as  well  as  anticipated  workload.  The  budget  can  be  created  from  scratch,  from  existing 
information,  or  from  previous  budgets.  The  historical  data  base  is  invaluable  in 
analyzing  trends  and  making  budget  projections  based  on  those  trends.  This  historical 
data  base  will  be  limited  to  only  the  previous  year. 


All  work  done  at  the  shipvard  is  assigned  a  job  order  number.  A  job  order 
number  consists  of  the  Cost  Function  number,  Cost  Class  number,  and  a  four  digit 
number. 
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This  interactive  system  will  allow  the  user  to  test  budget  proposals  and  conduct 
"what  if'  analysis  of  various  budget  options.  Budget  detail  can  run  the  spectrum  from 
shipyard  total  budget,  to  Cost  Center,  Cost  Function  and  Cost  Class  levels.  Graphic 
display  of  the  resulting  analysis  is  not  available  with  the  system. 

Although  the  system  has  many  interactive  capabilities  for  the  various  users,  at 
present  it  is  only  used  to  create  budget  versus  actual  performance  reports  (SBR-22A 
and  SBR-22B).  Obviously,  the  complete  system  implementation  of  SABRS  I  will  be 
required  before  the  shipyard  managers  have  a  comprehensive  and  sophisticated  budget 
analysis  tool. 

SABRS  II  is  designed  to  allow  the  users  to  prepare  budget  exhibits  required  by 
NAVSEASYSCOM.  Although  it  will  provide  assistance  to  the  Comptroller's  office 
and  department  budget  analysts,  its  analysis  capabilities  for  the  average  user  are 
limited. 
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III.  LITERATURE  REVIEW  AND  THEORETICAL  FRAMEWORK 

A.  DSS  DEFINITION 

Many  books  and  articles  have  been  written  on  DSS.  The  subject  is  relatively 
new,  becoming  part  of  the  Information  Systems  jargon  as  recently  as  the  mid  70's. 
The  exact  definition  of  what  can  be  classified  as  a  DSS  is  itself  a  gray  area. 

Peter  G.  W.  Keen  and  Michael  S.  Scott  Morton  [Ref.  1]  are  acknowledged  as 
the  major  authorities  on  DSS.  Their  work  was  one  of  the  first  major  writings  on  the 
subject  of  DSS  and  is  used  as  a  focal  point  for  most  subsequent  works.  They 
originated  the  now  standard  term  DSS.  Keen  and  Morton  [Ref.  1:  p.  15]  view  DSS  as 
part  of  the  natural  evolution  and  maturation  of  information  systems  and  management. 
Mature  MIS  systems  should  be  available  before  a  DSS  system  can  be  implemented 
with  success. 

A  DSS  has  been  characterized  as  an  interactive,  computer-based  system  that 
helps  decision  makers  utilize  data  and  models  to  solve  unstructured  problems 
[Ref.  2:  p.  4].  A  system  requires  three  capabilities  to  be  classified  as  a  DSS:  a  data 
base  management  system,  a  model  base  management  system,  and  a  dialog  management 
system  [Ref.  2:  p.  28].  MIS  deals  with  structured  tasks,  while  a  DSS  deals  with  semi- 
structured  or  unstructured  tasks.  This  divergence  from  what  is  considered  MIS  has 
caused  the  development  of  new  techniques  and  methodologies  for  the  development  of 
DSS.  These  techniques  often  are  not  new  to  the  MIS  community,  but  rather  have 
been  considered  improper  for  the  development  of  past  MIS. 

B.  DESIGN  AND  IMPLEMENTATION 
1.  Structured  Approach 

Structured  analysis  and  design  is  the  present  popular  and  successful  procedure 
for  the  development  of  MIS.   Structured  analysis  and  design  provide  a  checklist  for  the 

developer  to  insure  all  necessary  aspects  of  the  system  are  incorporated.  Although 
often  given  other  names,  the  following  steps  are  generally  associated  with  the 
structured  approach  [Ref.  8:  p.  17]: 

1.  Problem  definition 

2.  Feasibility  study 

3.  Analysis 

4.  System  design 
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5.  Detailed  design 

6.  Implementation 

7.  Maintenance 

Since  DSS  is  concerned  with  problems  that  are  classified  as  semi- structured  or 
unstructured,  it  seems  logical  that  a  structured  approach  may,  not  be  the  best 
approach.  A  structured  approach  requires  that  each  step  be  methodically  followed  as 
they  are  listed.  The  output  for  one  step  serves  as  the  input  for  the  next  step  in  this 
top-down  approach.  Often  it  is  not  easy,  if  not  impossible,  for  an  unstructured  or 
semi- structured  task  to  be  fully  defined.  Therefore,  it  can  be  very  difficult  to  develop  a 
clear  design  flowing  from  step  to  step.  The  nature  of  unstructured  and  semi- structured 
task  definition  involves  backtracking  through  the  development  steps,  following  an  order 
which  is  not  consistent  with  a  top  down  approach.  A  structured  approach  may  indeed 
have  frequent  returns  to  earlier  steps,  but  the  sense  of  progression  from  step  to  step 
must  be  maintained  [Ref.  8:  p.  16].  This  progression  does  not  have  to  be  maintained  in 
DSS  development. 

2.  DSS  Approach 

Keen  and  Morton's  process  for  developing  a  DSS  is  not  a  cook  book 
methodology.  There  is  not  as  clear  cut  a  process  for  the  design  of  a  DSS,  although 
several  authors  note  common,  key  processes  that  must  be  accomplished  sometime 
within  the  development  cycle. 

The  main  distinction  between  the  current  trends  and  practices  in  the  MIS  field 
and  in  DSS  design  can  be  seen  in  the  concurrency  of  design  and  implementation. 
Design  and  implementation  are  inseparable  and  evolutionary  in  DSS  [Ref.  1:  p.  167]. 
This  is  a  common  thread  in  the  DSS  literature.  Design  and  implementation  are  not 
separate  phases  but  two  blended  iterative  steps. 

The  unstructured  nature  of  DSS  problems  can  result  in  vague  problem 
definitions.  This  vagueness  can  only  be  approached  through  the  flexibility  of  this 
iterative  DSS  methodology.  The  concurrency  of  design  and  implementation  act  as  a 
bridge  between  the  designer  and  the  user,  increasing  their  communication.  Short  as 
possible  cycles  of  design  and  implementation  allow  the  users  to  frequently  evaluate  the 
development  effort  and  increases  understanding  of  the  users'  needs. 

Two  other  important  authors  of  DSS  literature  who  built  on  the  ideas 
proposed  by  Keene  and  Scott  Morton  are  Ralph  H.  Sprague,  Jr.  and  Eric  D.  Carlson. 
Sprague  and  Carlson  [Ref.  2],  also  emphasized  the  need  for  an  iterative  design.   A  DSS 
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must  "be  built  with  short,  rapid  feedback  from  users  to  ensure  that  development  is 
proceeding  correctly"  [Ref.  2:  p.  15].  This  keeps  the  user  involved  and  aware  of  the 
progress,  making  change  easier  and  quicker.  The  stages  of  typical  system 
development,  analysis,  design,  construction,  and  implementation  must  be  "combined 
into  a  single  step  which  is  iteratively  repeated"  [Ref.  2:  p.  15].  This  is  similar  to  the 
concept  expounded  by  Keene  and  Scott  Morton,  except  expanded  to  be  more  inclusive. 
Sprague  and  Carlson  not  only  included  design  and  implementation  in  their  iterative 
methodology,  but  also  analysis. 

3.  Problem  Definition 

Focusing  the  Approach  structured  approach  commences  with  the  definition  of 
a  problem.  Although  Keen  and  Scott  Morton's  approach  is  dissimilar  to  a  structured 
approach,  it  does  have  a  logical  first  step:  the  identification  of  a  key  decision  [Ref.  1:  p. 
173].  A  key  decision,  once  identified,  becomes  the  focus  of  the  initial  DSS.  This 
narrows  the  scope  of  the  initial  implementation  and  allows  the  user  the  flexibility  to 
make  changes  after  he  sees  a  working  system.  Any  changes  can  be  designed  and 
implemented  in  an  iterative  fashion. 

When  choosing  what  decision  to  implement,  the  probability  of  success  is 
always  increased  if  the  client  has  a  readily  identifiable  problem  or  need.  Normally  this 
results  in  a  user  who  is  an  excited  proponent  of  the  new  system.  The  "anything  is 
better  than  what  I  have  now"  attitude  often  breeds  cooperative  clients  and  sometimes 
even  fanatics.  A  cooperative  and  committed  user  does  not  guarantee  a  successful 
project,  but  without  some  support  from  the  user,  the  project  is  doomed  to  fail.  The 
earlier  his  commitment  is  generated,  the  easier  the  development  will  be. 

4.  Strategic  DSS  Development 

Sprague  and  Carlson  expanded  on  the  concept  of  focusing  on  one  key  decision 
and  divided  DSS  into  three  technology  levels:  specific  DSS,  DSS  generators,  and  DSS 
tools.  The  level  that  actually  accomplishes  work  is  the  specific  DSS  level.  This  is  the 
final  product  that  serves  the  user's  needs.  Specific  DSS's  are  built  from  other  levels, 
either  from  generators  or  tools.  The  lowest  DSS  level  is  that  of  tools.  Tools  facilitate 
the  development  of  either  Specific  DSS  or  a  DSS  generator.  A  DSS  generator  is  a 
collection  of  tools  or  capabilities.   [Ref.  2:  pp.  10-12] 

When  developing  a  DSS  several  approaches  can  be  taken.  First,  tools  can  be 
developed  with  no  specific  DSS  in  mind.  These  tools  can  then  be  integrated  to  build  a 
DSS  generator.    The  generator  can  then  be  applied  to  several  different  specific  DSS's 
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as  applications  arise  and  are  implemented.  New  tools  can  be  added  to  give  the 
generator  more  power.  This  approach  is  expensive  and  tangible  results  are  slow  in 
developing.  Careful  planning  and  extensive  analysis  is  necessary  to  insure  the  proper 
tools  are  available  when  a  DSS  application  arises. 

The  other  approach  focuses  on  a  specific  DSS,  acquiring  the  tools  needed  to 
build  that  specific  DSS's.  These  tools  can  then  possibly  be  used  for  other  specific 
DSS's  within  the  organization.  A  generator  is  then  created  indirectly  by  combining 
tools.  A  generator  does  not  evolve  until  several  specific  DSS's  are  developed.  Building 
a  specific  DSS  is  the  preferred  method  because  immediate  results  can  be  seen  quickly 
and  at  a  relatively  inexpensive  price.  Subsequent  specific  DSS  development  is  not  as 
simple  as  it  would  be  if  a  generator  already  existed. 

5.  Tactical  DSS  Development 

Depending  on  environmental  factors  (such  as  the  organizational  structure,  the 
tasks,  the  users,  and  the  builders)  three  different  tactical  options  are  recommended  by 
Sprague  and  Carlson  [Ref.  2:  p.  60]: 

1.  The  quick  hit.  If  it  is  not  clear  that  a  general  DSS  capability  is  needed,  but 
there  is  a  recognized  hiahoavolf  area  for  decision  support,  develop  a  Specific 
DSS  directlv  usina  the  mo'st  appropriate  tools,  capture  the  benefits,  then 
consider  what  to  do  next. 

2.  The  staged  development  approach.  Build  one  specific  DSS,  but  with  some 
advanced  planning,  so  that  part  of  the  effort  in  developing  the  first  system  can 
be  reused  in  developing  the  second.  With  appropriate  planning,  a  DSS 
generator  evolves  from  the  development  of  several  successive  specific  DSS. 

3.  The  complete  DSS.  Before  building  any  specific  DSS,  develop  a  full-service 
DSS  generator,  and  the  organizational  structure  for  managing  it. 

The  staged  development  is  recommended  because  it  is  the  most  balanced  approach  of 

the  three.    Results  can  be  seen  quickly  and  future  DSS  development  is  planned,  which 

is  usually  less  expensive  than  building  a  system  without  any  planning. 

6.  A  DSS  Action  Plan 

Planning  is  the  key  to  success  in  any  endeavor,  and  design  of  DSS  is  no 
exception.  Sprague  and  Carlson  [Ref.  2],  have  identified  four  phases  of  an  action  plan. 
These  phases  do  not  conflict  with  the  iterative,  simultaneous  design  and 
implementation  of  DSS.  Rather,  they  provide  a  framework  for  the  design  of  additional 
DSS.   The  four  phases  of  the  plan  are  [Ref.  2:  pp.  67-68]: 

1.  Preliminary  study  and  feasibility  assessment. 

2.  Development  of  the  DSS  environment. 

3.  Developing  the  initial  specific  DSS. 

4.  Developing  subsequent  specific  DSS. 
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The  preliminary  study  and  feasibility  assessment  are  the  same  as  in  the 
structured  methodology.  Once  a  problem  is  identified,  a  feasibility  study  is  needed.  In 
fact,  this  study  can  be  initiated  prior  to  the  knowledge  that  a  DSS  is  necessary  or 
desired,  in  response  to  a  particular  problem.  During  this  preliminary  study,  pilot 
projects  can  be  implemented  to  ascertain  DSS  needs.  These  pilot  projects  can  also  help 
find  the  project  for  the  first  specific  DSS. 

Phase  2  forms  the  DSS  environment.  A  minimal  set  of  tools  are  either 
developed  or  purchased  with  a  plan  for  creating  a  DSS  generator.  The  initial  specific 
DSS  design  and  implementation  can  then  begin.  The  specific  DSS  should  be  in  a 
highly  visible  area  that  has  observable  benefits.  Tools  can  be  updated  or  added  as 
necessary. 

In  the  next  phases  the  specific  DSS  is  designed  and  implemented  in  an 
iterative  methodology.  Upon  completion  of  the  initial  specific  DSS,  other  DSS's  can 
be  developed.  The  second  DSS  should  be  related  to  the  first.  For  example,  duplicating 
the  same  system  for  another  division  with  a  different  group  of  users  would  probably  be 
easier  and  yield  a  quicker  payoff  than  developing  an  unrelated  system  [Ref.  2:  p.  67]. 
In  practice  the  initial  DSS  does  not  have  to  be  completed  prior  to  the  start  of  phase  4. 
7.  ROMC 

Another  technique  Sprague  and  Carlson  introduced  was  the  ROMC  process 
[Ref.  2:  p.  96].  ROMC  is  a  process  independent  approach  for  identifying  the  necessary 
capabilities  of  a  specific  DSS  by  focusing  on  Representations,  Operations,  Memory 
aids,  and  Controls.  The  representations  help  to  conceptualize  and  communicate  the 
problem  or  decision  situation.  They  identify  what  the  user  actually  wants  to  see  as 
output  to  make  better  decisions.  Operations  allow  the  user  to  analyze  and  manipulate 
those  representations.  They  allow  the  user  to  integrate  the  representations  desired  into 
the  decision  maker's  style.  Memory  aids  assist  the  user  in  linking  the  representations 
and  operations  together.  A  data  base  acts  as  a  memory  aid  by  presenting  different 
views,  profiles,  libraries,  or  by  acting  as  a  trigger  that  reminds  the  user  that  certain 
operations  need  to  be  performed.  Control  mechanisms  handle  and  integrate  the  entire 
system.  Control  mechanisms  allow  the  decision  maker  the  use  of  the  system  in  a  way 
that  conforms  to  a  particular  user's  decision  style.  Menus,  training,  and  some 
operations  make  up  the  control  mechanisms  for  a  DSS. 
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C.      AREAS  OF  DESIGN 

The  design  must  also  cover  three  almost  separate  areas  [Ref.  1:  p.  181]: 

1.  the  "user"  design,  defined  in  terms  of  the 

imperatives, 

2.  the  interface  or  driver  which  links  them,  and 

3.  the  data-base  management  design. 

Each  of  these  areas  must  be  addressed  in  the  design  phase. 

If  user  design,  the  data  base,  or  the  interface  is  ignored,  the  consequences  could 
cripple  further  DSS  development.  When  the  user's  needs  are  not  fully  addressed,  he 
will  not  use  the  system.  Neglecting  data  base  management  results  in  the  necessary 
information  not  being  available  when  needed.  If  the  driver  system  which  links  all  of 
the  modules  for  the  entire  DSS  is  not  designed  properly,  then  the  system  cannot 
function  as  a  coherent  system,  even  if  all  its  parts  work  perfectly. 

1.  User  Design 

The  user  design  is  the  logical  design  of  the  system.  This  develops  the  tools 
that  form  the  DSS.  The  developers  must  have  a  clear  understanding  of  what  the  user's 
needs  are,  and  ensure  that  these  are  addressed  in  the  system  design.  That  requirement 
is  no  different  for  DSS  development  than  for  MIS  development.  The  difference  is  that 
it  is  critically  important  for  DSS.  Unlike  an  MIS  project,  you  can  not  make  do  with  a 
system  that  meets  only  part  of  the  user's  requirements.  It  either  meets  those  needs  and 
is  used,  or  it  is  not  used. 

2.  System  Interface 

A  driver  links  the  tools  into  a  usable  system.  Almost  all  known  DSS's  use 
some  version  of  command-driven  approach  for  user  interaction  [Ref.  1:  p.  181].  This 
allows  flexibility  and  ease  of  use.  It  also  nurtures  the  learning  process  about  the  types 
of  decisions  that  can  be  addressed. 

Flexibility  is  necessary  in  a  DSS  because  of  the  unstructured  tasks  it  is 
designed  to  perform.  The  ad  hoc  capabilities,  that  have  been  the  hallmark  of  DSS  over 
the  past  decade,  can  only  be  accomplished  through  the  use  of  command  driven 
systems.  Systems  which  are  limited  only  to  menus,  do  not  have  this  flexibility.  The 
designer  cannot  think  of  every  possible  combination  that  a  decision  maker  may  want  at 
some  future  time.  Even  if  all  possible  combinations  are  known,  the  cost  of 
implementing  them  in  another  form  other  than  through  a  command  language  would  be 
prohibitive. 
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3.  Data  Base  Management 

Data-base  management  is  of  prime  importance.  Almost  all  DSS's  are  centered 
around  a  data-base  system.  The  data  base  contains  the  information  that  the  decision 
maker  needs  in  order  to  make  better  decisions.  The  data  base  constitutes  the 
capabilities  of  the  entire  system.  The  information  that  must  be  in  the  data  base  needs 
to  be  identified  early  in  the  design  process. 

Having  a  data  base  prior  to  the  building  of  a  DSS  simplifies  the  design  of  the 
DSS.  The  functions  that  the  DSS  has  to  deal  with  are  lessened.  Most  data  base 
problems  can  then  be  discounted  or  at  least  simplified.  The  collection  and 
maintenance  of  data  used  by  the  DSS  may  already  be  accomplished.  Most  data  base 
management  issues  will  be  resolved,  such  as  integrity  and  security.  An  added  benefit  is 
that  the  chances  of  different  specific  DSS's  sharing  data  increases.   [Ref.  2:  p.  223] 

Data  can  be  obtained  from  many  sources.  A  DSS  must  be  able  to  aggregate  a 
variety  of  information.  Data  can  be  extracted  from  a  data  base  whether  in  house  or 
from  outside  sources.  The  DSS  is  then  able  to  manipulate  data  from  several  sources, 
and  format  it  into  useful  information  for  the  decision  maker,  without  affecting  the 
source  data  base.  Data  extraction,  taking  data  from  one  data  base  for  use  in  another, 
allows  source  data  files  to  be  organized  for  efficient  data  entry,  update,  processing, 
output,  or  protection,  without  additional  indices  or  data  to  support  the  DSS  [Ref.  2:  p. 
248]. 

The  original  data  base  management  system  can  be  used  for  the  functions  for 
which  it  is  best  suited.  Indices  and  data  for  the  DSS  are  stored  separately  from  the 
original  data  base,  within  an  extracted  data  base.  This  prevents  degrading  the 
performance  of  the  original  data  base. 

D.      ENVIRONMENT 

1.  Attitudinal  Direction  and  Requirements 

The  initial  implementation  using  the  iterative  development  approach  is  most 
effective  in  a  computer  resource  environment  that  is  both  centralized  and  decentralized, 
and  having  slack  resources  for  research  projects.  [Ref.  1:  p.  236].  The  centralized 
aspect  of  the  computer  resource  must  be  at  the  lower  tier,  providing  controls  over  the 
system  through  well  structured  procedures.  The  decentralized  aspect  of  the  computer 
resources  provides  an  environment  that  is  more  attuned  to  experimenting,  and  research 
and  development.    Slack  is  also  necessary  because  the  DSS  changes  the  organizational 
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emphasis  from  efficiency  to  effectiveness.  An  increase  in  effectiveness  is  usually 
attained  at  the  expense  of  efficiency.  Extracted  databases,  modeling,  and  other 
computer  manipulations  and  displays  can  greatly  decrease  the  efficiency  of  an  MIS. 
This  new  DSS  application  should  be  classified  as  R&D  until  it  becomes  an  integrated 
system.  The  slack  resources  cushion  the  inefficiencies  of  a  DSS  development 
preventing  a  drain  on  resources  from  other  areas. 

2.  Developmental  Requirements 

Iterative  design  is  the  key  to  DSS  design.  The  evolutive  approach  is  a 
methodology  based  on  the  progressive  design  of  a  DSS,  going  through  multiple,  as 
short  as  possible  cycles.  Successive  versions  of  the  system  under  construction  are  then 
utilized  by  the  end-user.  The  steps  in  the  process  include  [Ref.  2:  p.  139-140]: 

1.  Identify  an  important  subproblem. 

2.  Develop  a  small  but  usable  system  to  assist  the  decision  maker. 

3.  Refine,  expand,  and  modify  the  system  in  cycles. 

4.  Evaluate  the  system  constantly. 

These  steps  reiterate  the  previously  mentioned  design  criteria  expounded  by  both 
Keene  and  Morton,  and  Sprague  and  Carlson. 

Selecting  a  problem  with  a  high  probability  of  success  is  paramount  in  DSS 
design.  When  a  small  system  works  and  the  contributions  of  a  working  DSS  system 
can  be  demonstrated  and  observed  first  hand,  the  product  sells  itself. 

3.  DSS  Prototyping 

"The  most  successful  installation  technique  is  prototyping"  [Ref.  2:  p.  155]. 
Prototyping  provides  lower  risks  in  the  development  by  controlling  excessive 
expectations.  By  actually  demonstrating  the  feasibility,  the  user  can  see  the  actual 
benefits  a  system  may  have.  With  a  created  working  system,  the  developer  has 
concrete  facts  on  which  to  base  further  DSS  feasibility. 

4.  User  Education 

User  involvement  in  any  system  development  is  important,  and  the  iterative 
nature  of  DSS  makes  it  doubly  so.  To  insure  the  user  stays  involved  and  that  future 
users  can  get  involved,  proper  procedures  for  training  must  be  implemented.  User 
education  on  a  DSS  can  be  in  three  forms  [Ref.  2:  p.  153]: 

1.  A  one  on  one  or  tutorial  technique. 

2.  User  courses,  lectures,  or  professional  development  seminars. 

3.  Resident  expert  assistance  when  needed. 
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This  education  must  begin  at  the  early  stages  of  development.  This  will  ensure  the  user 
can  benefit  from  the  system. 

A  one  on  one  tutorial  is  the  most  common  and  expensive  training  technique 
[Ref.  2:  p.  154].  The  use  of  training  courses  and  seminars  is  another  common  method. 
An  expert,  either  internal  or  external,  can  instruct  users  at  all  levels  of  the 
development.  The  expert,  acting  as  a  consultant,  is  a  passive  version  of  the  tutorial 
technique.  Different  combinations  of  these  techniques  can  be  developed.  The  main 
lesson  is:  user  education  must  be  included  in  the  design.  This  insures  that  those  who 
can  benefit  from  the  use  of  the  DSS  have  the  ability  and  skills  necessary  to  do  so. 
5.  Support  for  DSS 

Factors  which  increase  the  likelihood  for  success  of  a  project  are  top 
management  support,  a  clear  felt  need  by  the  client,  an  immediate,  visible  problem  to 
work  on,  an  early  commitment  by  the  user,  a  conscious  staff  involvement,  and  a  well 
institutionalized  OR/MS  or  MIS  group  [Ref.  1:  p.  196].  Support  from  top 
management  greatly  enhances  the  acceptability  of  any  new  project.  Employees  are 
more  willing  to  support  the  development  effort  if  they  think  it  is  a  good  idea.  If  top 
management  is  not  supportive,  or  is  hostile,  others  will  be  less  likely  to  accept  or  even 
give  the  project  a  fair  trial. 

E.       FINAL  WORDS 

Gad  Ariav  and  Michael  J.  Ginzberg  [Ref.  9],  further  define  the  three  functions  of 
a  DSS  first  expounded  by  Keene  and  Morton.  Figure  3.1  lists  the  components  of  a 
system  which  Ariav  and  Ginzberg  think  are  necessary  in  order  to  have  a  DSS. 

The  first  component,  dialog  management,  is  broken  down  into  user  interface, 
dialog-control  and  request  transformer.  Without  each  of  these  subcomponents  the 
dialog  management  system  is  incomplete.  Data  management,  the  second  component, 
is  subdivided  into  the  data  base  and  data  base  management  system,  a  data  directory,  a 
query  facility,  and  a  staging  and  extraction  function.  Finally,  the  model  management 
system  is  partitioned  into  a  model-base  management  system,  model  execution, 
modeling  command  processor,  and  a  data  base  interface.  These  subcomponents  define 
the  complete  DSS. 

Ariav  and  Ginzberg  [Ref.  9],  looked  at  the  basic  resources  of  a  computer  system- 
hardware,  software,  people,  and  data.  They  found  it  is  only  after  the  DSS  has  been 
designed  (after  the  components  and  their  "ideal"  arrangement  have  been  selected)  that 
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data  base  interface 

Figure  3.1    DSS  Components  (Functions). 

resources  should  be  considered.    [Ref.  9:  p.    1049].    The  solution  should  drive  the 
selection  of  a  system,  the  system  should  not  drive  the  solution.    If  the  arrangement  is 
set  prior    to  design,  the  options  of  the  design  are  greatly  hampered  and  creativity 
stymied.  The  designer  must  design  a  DSS  based  on  the  solution  to  a  problem. 
Ariav  and  Ginzberg  [Ref.  9],  divided  software  into  four  types: 

1.  General-purpose  programming  languages. 

2.  DSS  tools. 

3.  DSS  generators. 

4.  Generalized  DSS. 

These  types  correspond  to  the  technology  levels  of  DSS  from  Carlson  and  Sprague. 
General  purpose  programming  languages  provide  only  limited  leverage  for  the 
development  of  a  DSS.  Tools  are  already  available  and  are  usually  cheaper  than 
reinventing  the  wheel.  DSS  tools  provide  only  a  single  function,  but  as  a  group  can  be 
the  building  blocks  for  a  DSS  generator.   Tools  only  address  one  function  of  DSS  and 
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need  to  be  integrated  into  a  system.  DSS  generators  are  a  collection  of  DSS  tools  but 
are  tailored  to  one  specific  problem.  For  example,  the  DSS  generator  IFPS  deals  only 
with  financial  problems.  Generalized  DSS  can  support  a  class  of  problems.  An 
example  of  generalized  DSS  would  be  a  PERT/CPM  system. 

The  design  of  the  DSS  should  be  independent  of  the  software  as  well  as  the  other 
components.  This  is  known  as  an  outside  approach.  An  outside  approach  provides 
that  the  selection  of  components  and  their  arrangement  (the  inside),  must  follow  from 
an  understanding  of  the  environment  and  the  role  (the  outside)  [Ref.  9:  p.  1051]. 

The  last  author  and  noted  authority  on  DSS  that  should  be  looked  at  is  George 
P.  Huber  [Ref.  10].  Huber  [Ref.  10:  p.  250],  states  that  a  DSS  is  a  system  specifically 
developed  to  carry  out  some  of  the  decision  making  information  processing.  This 
definition,  although  vague,  shows  the  trend  for  DSS's  toward  an  increasing  direct 
decision  making  influence.  A  DSS  allows  decision  makers  to  make  use  of  the  data 
that  other  technologies  are  making  more  and  more  available.  There  is  indeed  an 
information  boom  as  we  move  into  a  service  oriented  society  from  an  industrial  society 
[Ref.  10:  pp.  250-252].  This  trend,  as  well  as  the  advances  in  technology,  has  provided 
the  decision  maker  with  more  and  more  information.  The  role  of  the  DSS  is  the 
aggregation  and  summarization  of  all  the  pertinent  information  that  is  available  from 
all  sources.  A  DSS  allows  decision  makers  to  make  use  of  the  data  that  other 
technologies  do  not. 
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IV.  METHODOLOGY 

A.       INTRODUCTION 

The  methodology  we  followed  was  a  task  organized  approach.  We  chose  our 
methodology  as  we  proceeded  based  on  our  particular  situation  and  constraints.  This 
approach  to  DSS's  was  a  semi- structured  one,  which  is  fitting  since  DSS  is  supposed  to 
help  solve  semi- structured  problems.  The  project  had  a  purely  R&D  attitude,  with  a 
useful  product  as  a  possible  side  benefit. 

Throughout  this  thesis  we  refer  to  our  system  as  a  prototype.  A  more  precise 
terminology  may  be  pilot  project.  Our  intent  is  not  to  initiate  a  DSS  but  to  "test  the 
waters"  to  see  if  an  environment  suitable  for  a  DSS  exists.  Our  intent  is  to: 

1.  Test  a  methodology  based  on  a  semistructured,  task  organized  approach. 

2.  Determine  if  a  suitable  environment  for  further  DSS  development  is  present  or 
can  be  established. 

3.  Determine  the  next  step  for  future  DSS  development,  if  appropriate. 

4.  Provide  the  shipyard  with  a  usable,  user  friendlv  system  involving  control  and 
graphic  displays. 

Since  our  approach  in  determining  the  environment  revolved  around  a  methodology  for 

the  development  of  a  DSS,  we  refer  to  this  system  as  a  prototype. 

Many  constraints,  from  hardware  to  software,  were  introduced.  The  shipyard 
already  had  a  mainframe  computer,  several  minicomputers  and  microcomputers,  with 
more  micros  on  order.  That  level  of  prior  hardware  investment  and  the  nature  of  our 
project  required  our  system  to  operate  on  the  existing  hardware.  The  minicomputer 
application  was  chosen  because  of  the  number  of  terminals  connected  through  the 
shipyard  network  and  available  to  all  managers. 

Additional  constraints  involved  software.  No  new  software  to  support  the 
prototype  was  planned.  Therefore,  the  first  order  of  business  was  to  learn  the  existing 
system's  capabilities.  The  software  we  originally  focused  on  included  CPL,  the 
Command  Processor  Language  for  the  Prime  minicomputer,  the  Supercomp 
spreadsheet  program,  and  TEL-A-GRAF,  a  business  graphics  package  that  was 
recently  purchased  by  the  Shipyard. 
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B.       ITERATIVE  DEVELOPMENT 

The  major  theme  throughout  the  literature  on  DSS  development  is  the  use  of  an 
iterative  approach,  which  was  central  to  our  methodology.  It  provided  flexibility 
because  it  allowed  us  to  combine  the  design  and  implementation  phases  through  the 
building  of  a  prototype  system.  Since  this  development  strategy  results  in  a  rapidly 
produced  prototype,  it  should  not  be  construed  to  represent  a  complete  production 
model  DSS.  This  effort  merely  introduces  the  concept  of  DSS  within  an  organization 
with  no  prior  development  experience  in  this  area. 

The  iterative  approach  calls  for  rapid  succession  of  the  system  development  steps, 
with  redefinition  of  each  step  on  subsequent  iterations.  Our  only  strict  exit  criteria  was 
the  prototype.  We  set  no  limits  on  the  number  of  iterations,  nor  did  we  expect  to  have 
a  completely  functional  DSS  at  the  end.  Our  expectation  was  to  have  a  useful 
prototype  that  could  demonstrate  one  small  contribution  a  DSS  could  make,  and  to 
give  direction  to  further  DSS  development  within  the  shipyard. 

1.  Problem  Definition 

The  first  step  in  any  new  system  is  problem  identification  and  definition.  The 
Coopers  and  Lybrand  study  outlined  several  problems  common  to  most  Naval 
shipyards.  The  focus  of  our  project  centered  on  one  set  of  issues:  the  budget  system 
for  the  shipyard.  This  project  was  focused  for  one  division,  but  is  easily  expandable 
shipyard-wide  as  the  prototype  matures. 

In  addition  to  the  Coopers  and  Lybrand  study,  the  Mare  Island  Naval 
Shipyard  Information  Resource  Management  Plan  [Ref.  11],  outlined  the  need  for  a 
shipyard-wide  DSS.  This  perceived  need  for  a  DSS  and  the  desirability  of  the  budget 
system  being  a  part  of  that  DSS,  placed  a  two-fold  goal  on  this  project:  provide  a 
system  to  improve  managerial  control  of  the  budget  and  expense,  and  to  introduce  the 
concepts  and  capabilities  of  a  DSS  to  the  shipyard. 

Keen  and  Scott  Morton  refer  to  a  "diagnostic  perspective."  Designers  need  to 
be  sure  that  "they  understand  the  realities  of  the  decision  situation.. .they  need  a 
descriptive  model  as  the  basis  for  identifying  a  normative  direction.''  [Ref.  1:  p.  77] 
Although  our  system  is  smaller  than  the  DSS  that  the  authors  were  describing  a 
strategy  for,  aspects  of  the  areas  they  felt  must  be  addressed  will  be  identified  and 
explained.  The  most  applicable  areas  are  the  "organizational  procedures  view,  the 
political  view  and  the  individual  differences  perspective."  [Ref.  1:  p.  63] 
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The  organizational  procedures  view  is  articulated  through  the  use  of  the 
structured  techniques  of  analysis.  The  structured  specification  outlines  the  flow  of 
data,  the  processes  or  procedures  that  manipulate  the  data,  and  the  storage  of  data. 
The  data  dictionary  seeks  to  define  the  data  elements  identified  during  the  data  flow 
analysis.  The  structure  chart  shows  the  development  of  the  system  design  to  meet  the 
requirements  of  the  organization's  operation.  This  effort  is  the  structural  approach 
practiced  in  present  systems  analysis. 

The  political  view  is  approached  less  formally  in  systems  analysis.  It  is  not 
explicitly  documented  in  our  analysis,  but  has  tempered  our  considerations  and  to  a 
degree,  the  direction  of  the  development  effort.  For  example,  working  on  a  project 
within  the  Comptroller  Department  was  not  possible  because  of  their  current  concerns 
with  the  SABRS  project  and  our  inability  to  identify  definite  gains  or  improvements  for 
SABRS,  as  an  outgrowth  of  our  project.  On  the  other  hand,  the  degree  of  support 
available  within  the  MEIO  Department  caused  us  to  devote  our  initial  efforts  to  them. 

The  individual  differences  perspective  has  some  applicability  to  this  project. 
Since  our  prototype  was  developed  with  inputs  coming  from  only  two  individuals,  we 
easily  reconciled  any  particular  differences  between  them.  A  larger  development  effort 
within  the  shipyard  would  require  additional  efforts  to  meet  the  needs  of  a  wider 
spectrum  of  managers'  styles. 
2.  Structured  Techniques 

We  required  that  the  system  we  developed  be  as  maintainable  as  possible. 
The  adherents  to  the  structured  methodology  claim  that  fact;  therefore,  we  were 
convinced  to  include  the  method  where  possible  in  our  development.  Many 
proponents  of  DSS  might  disagree  with  this  decision.  Sprague  and  Carlson  point  out 
that  "DSS  are,... research  efforts,  not  DP  projects,  and  therefore  not  well  suited  for 
traditional  project  management  procedures."  [Ref.  2:  p.  138]  We  would  agree  up  to  a 
point.  DSS  are  transactionally  oriented  processing  systems  and  therefore  the  discipline 
imposed  by  the  structured  techniques  are  still  applicable.  In  addition,  we  did  not  have 
the  luxury  of  being  in  close  proximity  to  the  users  or  the  programming  environment. 
These  constraints  required  that  we  use  a  methodology  that  produced  clear  and 
understandable  documentation,  and  also  required  minimal  correction  of  the  code. 

We  took  the  structured  approach  to  analysis  and  design,  relaxing  the  ending 
and  exit  criteria.  The  structured  methodology  was  used  for  the  analysis  because  we  felt 
the  approach  of  Keen  and  Scott  Morton  was  not  rigorous  enough  in  identification  of  a 
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clear  approach  to  the  description  process.  It  would  not  produce  the  documentation 
which  we  believe  is  essential  to  the  clear  understanding  of  readers  and  follow- on 
implementors.  Additionally,  the  documentation  produced  would  be  textual.  A  textual 
description  would  not  have  been  as  clear,  and  definitely  not  as  concise,  as  the 
structured  specification. 

a.  Feasibility  Study 

If  we  had  been  closely  following  the  structured  analysis  and  design 
approach,  the  next  step  after  problem  definition  would  have  been  the  feasibility  study. 
Since  a  prototype  system  is  an  example  of  a  technical  feasibility  approach,  and  no 
further  systems  purchases  were  considered,  this  step  was  not  needed. 

b.  Analysis  and  Design 

The  next  step  was  analysis.  Our  analysis  took  us  in  two  directions.  The 
budget  system  within  the  MEIO  department  was  one  area  that  was  investigated.  The 
other  area  dealt  with  the  hardware  and  software  that  had  already  been  selected.  We 
were  not  familiar  with  the  hardware  nor  the  software.  Hence  we  had  to  learn  both  the 
budget  system  and  the  computer  system  simultaneously.  At  this  same  time  we  began 
the  system  design.  We  used  structured  techniques  to  graphically  map  out  the  system. 
These  preliminary  designs  were  actually  completed  before  the  analysis. 

The  descriptive  analysis  we  conducted  corresponds  to  the  Predesign  Cycle 
suggested  by  Keen  and  Scott  Morton.  We  attempted  to  build  "momentum  for  change 
and  developing  a  'contract'  for  action..."  in  order  to  foster  the  initial  climate  for 
change  [Ref.  1:  p.  173].  The  output  of  this  approach  is  to  produce  a  normative  model 
for  the  present  system  and  design  the  DSS  in  response  to  that  [Ref.  1:  p.  174].  The 
"degree  of  change"  proposed  by  our  design  is  not  large  because  of  the  nature  of  our 
project.   This  approach  was  necessary  to  minimize  risks  and  resource  requirements. 

To  assist  in  this  design,  we  followed  the  ROMC  method  introduced  by 
Sprague  and  Carlson  [Ref.  2].  We  started  at  R,  representations,  and  developed  three 
main  graphical  representations.  Several  graphic  displays  of  these  representations  were 
identified.  We  developed  these  graphics  by  focusing  on  one  manager,  a  decision  maker 
in  the  MEIO  department.  This  helped  us  to  narrow  the  analysis  to  a  workable  scope. 
Other  representations  were  also  considered,  such  as  comparisons  between  budget  and 
expenses  in  column  form.  We  decided  that  most  of  that  information  already  existed  on 
their  present  reports,  although  not  in  an  on  line  mode.  SABRS  was  to  give  the  user 
this  capability  when  operational.    We  decided  to  concentrate  on  areas  that  were  as  yet 
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not  directly  addressed  by  the  current  MIS  efforts.  One  other  representation  considered 
was  the  spreadsheet.  A  spreadsheet  could  give  the  user  limited  "what  if  capabilities. 
We  decided  that  the  initial  prototype  would  contain  only  the  graphics  in  an  easy  to 
use,  menu  driven  system. 

The  next  step  in  ROMC  is  the  Operations.  For  our  prototype  system  the 
operations  centered  around  the  graphic  display  of  the  data.  It  included  selecting  and 
displaying  desired  budget  and  expense  information.  The  Memory  aids  for  our  initial 
system  focused  on  the  menus  of  the  system.  Finally,  the  Controls  for  the  system  are 
also  handled  within  the  menus  at  this  preliminary  stage. 

At  this  point  in  the  development,  the  analysis  of  what  we  considered  a 
solvable  problem  was  completed.  This  problem  was  also  considered  to  be  of  value  to 
the  shipyard.  The  budget  problem  made  the  expansion  of  the  system  to  other 
departments  and  to  the  Commanding  Officer  of  the  shipyard  a  likely  second  specific 
DSS  to  pursue. 

The  preliminary  design  had  been  completed.  The  structured  specification, 
consisting  of  data  flow  diagrams,  data  dictionary  and  structure  charts  had  been 
completed.  The  detailed  design  was  already  begun.  Basically,  the  simplicity  of  this 
initial  system  allowed  us  to  combine  these  two  structured  steps  and  do  them 
simultaneously  with  the  analysis. 
c.  Implementation 

The  coding  and  implementation  was  then  begun.  This  was  done  iteratively 
with  revisions  coming  mostly  through  the  designers.  Initial  graphics  were  completed 
on  an  IBM  mainframe  at  the  Naval  Postgraduate  School  and  then  reentered  on  the 
Prime  minicomputer  when  on  site.  This  was  done  solely  for  the  convenience  of  the 
authors.  The  geographic  separation  of  the  implementation  site  and  the  developers 
prevented  a  more  interactive  approach.  This  did  have  an  effect  on  the  timing  of 
iterations,  which  caused  the  project  to  take  considerably  more  time  than  initially 
planned.  A  helpful  capability  we  had  at  our  disposal  was  that  we  could  interface 
directly  with  the  shipyard's  Prime  minicomputer,  and  we  authored  most  of  the  driver 
programs  from  out  remote  site.  Some  of  the  graphics  programs  were  also  entered  from 
the  remote  site,  but  they  could  not  be  completely  tested.  The  terminal  used  to 
interface  with  the  Prime  computer  was  a  Convergent  Technology's  C-3  terminal  and 
software,  which  was  not  suitable  for  the  graphic  displays  produced  by  the  TEL-A- 
GRAF  programs. 
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When  a  skeleton  working  system  was  completed,  we  began  a  similar 
implementation  on  a  micro.  The  micro  system  was  developed  for  an  IBM  compatible 
XT  or  AT.  Four  reasons  justified  this  effort.  First,  the  trend  toward  personal 
computers  in  the  work  space  is  prevalent  in  all  industries.  Second,  the  shipyard  just 
purchased  several  IBM  compatible  Zenith  PC's.  Third,  the  same  analysis  and  design 
were  used  to  code  and  implement  the  system  on  the  PC.  Fourth  was  our  desire  to 
quickly  implement  our  data  base  design  as  a  model  of  what  could  be  developed  on  the 
minicomputer  system. 

These  efforts  confirmed  the  generic  design  of  the  system,  which  was  one  of 
our  goals.  We  strove  to  design  a  system  that  could  be  generically  implemented  on  any 
system  having  the  appropriate  capabilities. 

When  coding  and  implementation  were  completed  the  testing  of  the  system 
was  accomplished.    Additional  graphics  were  added  to  complete  the  final  prototype. 
From  this  prototype,  the  direction  of  the  future  DSS  development  can  be  determined. 
3.  Data  Base  Development 

The  data  base  is  the  central  focus  of  our  proposed  DSS.  Further,  an 
understanding  of  the  data  flows  in  the  budgeting  process  helped  us  as  analysts  to  know 
exactly  what  data  were  important  to  this  system.  Sprague  and  Carlson  identified  data 
base  management  as  "an  important  prerequisite  to  a  DSS..."  [Ref.  2:  p.  222]. 
Although  we  have  not  incorporated  data  extraction  capabilities  into  our  design,  we 
would  agree  that  a  clear  understanding  of  the  data  involved,  and  a  method  of 
manipulation  of  that  data,  is  important  to  the  design  of  any  system. 

This  aspect  of  the  system  did  not  concern  us  directly.  However,  we  did 
identify  the  data  that  would  be  needed  for  the  initial  DSS.  The  source  of  this 
information  was  also  identified:  the  reports  that  the  shipyard  was  already  producing. 
The  MIS  department  agreed  to  handle  the  data  extraction,  and  we  proceeded  on  the 
assumption  that  the  data  would  be  available  in  the  format  we  desired. 

The  data  base  design  efforts  for  the  microcomputer  prototype  involved  the 
relational  data  base  methodology.  Our  primary  reason  for  selecting  it  was  our 
familiarity  with  it.  In  addition,  it  allows  a  great  deal  of  flexibility  to  shift  between 
logical  and  physical  design.  The  relational  design  can  also  be  readily  applied  to  other 
methodologies.  The  fact  that  the  particular  relational  data  base  management  system 
available  to  us,  for  the  microcomputer  implementation,  was  also  being  installed  on  the 
shipyard's  Prime  network,  further  influenced  our  decision. 
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For  our  initial  system  the  required  data  consisted  of  only  expense  data  and 
budget  data,  which  were  already  available.  However,  no  historical  record  was  kept 
electronically  as  the  data  tapes  were  overwritten  about  every  two  months.  It  was 
realized  that  an  historical  data  base  would  need  to  be  kept  for  a  flexible  DSS.  This 
requirement  made  the  choice  of  the  minicomputer  for  the  system  even  better  due  to  the 
volume  of  the  data  necessary  for  such  an  historical  data  base.  We  also  realized  that  a 
shipyard- wide  DSS  would  need  a  flexible  data  base  management  system.  Although  the 
initial  implementation  would  only  need  a  simple  DBMS,  the  backbone  of  an  overall 
DSS  has  to  be  the  data  base  system. 

In  the  future  we  foresee  the  mainframe  and  the  minicomputer  becoming  more 
of  a  data  repository  and  less  application  oriented,  as  the  microcomputers  become  more 
pervasive  within  the  shipyard.2  This  trend  would  allow  the  decision  maker  to 
manipulate  his  own  data  base  on  his  PC,  and  allow  him  to  update  or  reinitialize  his 
data  base  from  the  master  file  on  the  minicomputer. 

In  actual  use,  this  data  base  must  at  least  be  compatible  with  the  data  base  on 
the  minicomputer.  We  further  recommend  that  the  two  data  bases  have  similar 
command  languages,  to  avoid  a  situation  where  managers  and  users,  have  to  learn  two 
different  systems.  Compatible  data  bases  would  simplify  the  sharing  of  data  and  data 
extraction. 


interview  with  Ronald  Munden,  Manger  MEIO,  Mare  Island  Naval  shipvard, 
December  10,  1986. 
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V.  PRESENTATION  OF  THE  PROTOTYPE  RESULTS 

A.      REQUIREMENTS  DEFINITION 

1.  Cost  Center  Analysis  (Minicomputer) 

Cost  Center  Analysis  (minicomputer)  was  developed  for  the  Prime  9755 
minicomputer.  This  system  operates  under  the  PRIMOS  operating  system  and 
employs  the  Prime  Command  Processor  Language  (CPL)  as  its  development  language. 

The  prototype  is  made  up  of  several  small  programs,  based  upon  the  system 
structure  chart,  in  Appendix  A,  developed  during  the  analysis  portion  of  the  project. 
Sub-programs  rather  than  sub-routines  were  used  because  CPL  does  not  allow  the 
passing  of  parameters  from  sub-routines  to  calling  program. 

Differences  between  the  modules  of  the  structure  chart  and  the  actual 
programs  written  were  the  result  of  three  factors.  First,  the  goal  when  we  developed 
the  structure  chart  was  to  reduce  the  modules  to  their  functional  primitives.  CPL  has 
several  constructs  which  combine  some  of  the  functional  primitives.  Therefore,  it 
would  have  been  inefficient  to  strictly  follow  the  structure  chart  during  actual  coding, 
developing  each  module  as  a  separate  entity. 

Second,  the  interface  to  the  spreadsheet  was  determined  to  be  time  infeasible 
due  to  the  nature  of  the  spreadsheet's  method  of  control.  This  was  especially  true  in 
light  of  the  fact  that  this  was  not  a  critical  implementation  to  the  users.  The 
spreadsheet  requirements  could  more  effectively  be  met  using  SABRS.  Developing  the 
interfaces  to  SABRS  would  have  been  outside  the  scope  of  this  initial  project; 
therefore,  it  was  not  included. 

Third,  the  project  was  originally  designed  to  allow  the  user  to  develop  his  own 
data  and  include  files  for  TEL-A-GRAF  while  still  in  CCA.  The  resulting  loss  of 
control,  an  inability  to  ensure  the  user  developed  standardized  files,  caused  us  to 
eliminate  that  capability.  However,  the  flexibility  required  for  ad  hoc  queries  is  still 
available  within  the  system.  This  feature  is  provided  through  the  TEL-A-GRAF 
command  language. 

a.   Module  descriptions  and  functions 

The    structure   chart    depicted   in    Figures    5.1,   5.2    and   5.3    graphically 
describes  the  interrelationships  between  the  following  program  modules. 
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Figure  5.1     Structure  Chart  of  CCA  (minicomputer). 
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(1)  Prepare  Reports  (PR.CPL).  This  is  the  top  level  program  driver  of  the 
system.  It  calls  the  subprograms  to  produce  the  top  level  menu,  accepts  and  then 
validates  the  user's  response,  and  selects  the  appropriate  subsystem  or  ends  the  session. 
Thus,  the  system  is  transactional  in  that  the  particular  subsystem  selected  is  based 
upon  the  user's  response. 

(2)  Display  Menu  {DT5.CPL).  This  is  the  program  that  displays  the  top 
level  menu. 

(3)  Call  Tel-a-graf  (CTEL.CPL).  The  major  sub-program  of  the  system, 
this  allows  the  user  the  option  of  selecting  standard  report  formats  and  nonstandard 
ones.  Depending  upon  the  user's  selection,  it  will  call  the  appropriate  sub-programs  to 
implement  the  desired  graphic  report. 

(4)  Manipulate  TEL-A-GRAF  (MANTEL.CPL).  This  program  calls  the 
sub-programs  that  allow  the  user  to  select  the  Cost  Center  Code,  Plot  Code,  Plot 
Options  Code,  and  finally  open  TEL-A-GRAF.  The  Cost  Center  Code  determines  the 
particular  Cost  Center  to  be  studied.  Plot  Code  allows  the  user  to  select  the  type  of 
graph  he  wishes  to  produce  with  TEL-A-GRAF.  The  Plot  Options  Code  controls  the 
level  of  detail  that  the  user  wishes  to  select. 

The  modules  that  select  the  codes  are  very  similar  in  structure.  We  will 
explain  the  sub-programs  to  select  the  Cost  Center  Code.  The  other  codes  are  selected 
in  much  the  same  way.  Select  Cost  Center  (SCC.CPL)  calls  Display  Cost  Center 
(DCC.CPL)  and  assigns  the  value  of  the  function  Validate  Cost  Center  (VCC.CPL)  to 
the  variable.  That  variable  is  subsequently  returned  to  Manipulate  TEL-A-GRAF 
(MANTEL.CPL).  Display  Cost  Center  provides  the  user  a  menu  of  the  Cost  Centers 
available  for  analysis;  that  number  is  one  for  this  initial  project,  but  could  be  easily 
increased  in  subsequent  versions.  Validate  Cost  Center  requests,  gets,  and  validates  the 
user's  response. 

(5)  Open  TEL-A-GRAF  (OPTEL.CPL).  This  determines  the  data  files 
and  include  files  to  be  used  by  TEL-A-GRAF,  and  calls  the  routines  that  actually  open 
TEL-A-GRAF  for  the  user.  Data  files  are  those  that  actually  contain  the  data  to  be 
graphed.  Include  files  are  essentially  programs  written  in  a  "structured  English"  that 
TEL-AGRAF  uses  to  build  the  desired  graphs.  Open  TEL-A-GRAF  uses  the 
combination  of  the  Cost  Center  Code,  Plot  Code  and  Plot  Options  Code  to  make  the 
determinations. 
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Figure  5.2    Continued  Structure  Chart  of  CCA  (minicomputer). 
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Figure  5.3    Continued  Structure  Chart  of  CCA  (minicomputer). 

(6)    TEL-A-GRAF  Interface  Programs. 

Six  sub-programs  actually  open  TEL-A-GRAF.  One  allows  the  user 
to  make  free  form  input  to  TEL-A-GRAF  (FREE.CPL).  This  would  be  for  those  users 
who  had  become  somewhat  familiar  with  the  TE LA-GRAF  constructs  and  wish  to 
implement  graphs  which  they  design.  A  second  allows  the  graph  to  be  constructed 
from  one  data  file  and  one  include  file  (SINGLE.CPL).  The  third  (DOUBLE.CPL)  is 
used  for  graphs  which  have  an  inset  graph,  and  therefore  requires  two  data  files  and 
two  include  files.  The  sixth  (DOUBAR.CPL)  is  designed  to  produce  a  bar  graph  which 
requires  one  data  file  but  two  include  files.  In  order  to  produce  a  graph  with  a  bar 
chart  insert  and  line  graph,  the  fifth  (TRIPLE.CPL)  is  used.  (TRIPLE.CPL)  requires 
two  data  files  and  three  include  files,  the  extra  include  modifies  the  plot.  The  sixth 
(QUAD.CPL)  allows  the  user  to  develop  a  composite  graph  made  up  of  four 
subgraphs.  It  requires  four  separate  data  and  four  separate  include  files. 
b.    Usability 

This  system  was  designed  for  users  needing  an  information  display 
capability  through  high  quality  graphics.  In  this  case  the  graphics  system's  command 
language  was  difficult  for  the  average  user  to  learn.  The  shell  provides  them  with  the 
ability  to  quickly  produce  the  information  displays  that  they  require. 

The  system  is  designed  in  such  a  way  that  the  users  only  minimally  interact 
with  TEL-A-GRAF.  In  that  way  they  learn  the  structure  of  the  command  language 
and   gain   confidence    in    their   abilities   to    control   TEL-A-GRAF.     As    they    gain 
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experience,  the  system  allows  users  to  begin  to  develop  their  own  TEL-A-GRAF 
command  language  programs  and  their  own  data  files. 

The  advanced  user  could  use  the  system  as  a  refresher  when  away  from  it, 
or  possibly  to  work  out  a  problem  that  puzzled  him.  It  is  not  likely  that  he  would  use 
it  to  any  great  degree,  however,  since  it  would  usually  be  quicker  to  go  directly  into 
TEL-A-GRAF  on  his  own. 

c.  Expandability 

The  structured  design  of  the  system  allows  for  easy  expandability. 
Subprograms  can  be  added  or  deleted,  usually  with  a  one  line  change  in  the  calling 
program. 

The  range  of  changes  could  include  interfacing  with  additional  systems  such 
as  a  spreadsheet,  statistical  program,  or  SABRS.  Additional  Cost  Centers  could  be 
added  very  easily.  The  only  limiting  factor  would  be  to  provide  the  data  files.  This 
could  be  circumvented  by  using  a  data  base  management  system  that  would  produce 
the  data  files,  and  then  an  application  program  which  would  format  them  for  TEL-A- 
GRAF.  Additional  graphic  displays  could  be  provided  by  merely  developing  new 
include  files  and  providing  the  user  interfaces  to  select  them. 

d.  Reliability 

CPL  is  an  excellent  development  environment  providing  many  built-in 
error  trapping  routines.  It  was  simple  to  provide  validation  of  all  user  inputs  requested 
by  the  system.  The  language  is  also  easily  applied,  thereby  further  reducing  the 
chances  for  errors. 

The  structured  approach  used  to  complete  the  design  clearly  presents  the 
proposed  system.  Programming  problems  were  quickly  identified  and  fixed.  It  allowed 
us  to  have  a  clear  idea  of  what  we  were  doing  while  coding,  much  as  an  outline  does 
for  an  author.  This  further  protected  us  from  logic  errors. 

e.  Integration  of  tools 

The  only  tools  available  to  this  development  effort  were  TEL-A-GRAF  and 
CPL.  TEL-A-GRAF  is  a  very  powerful  tooi,  but  it  is  difficult  for  the  average  user  to 
manipulate.  This  situation  forced  one  of  us  to  be  dedicated  to  the  development  of  the 
required  graphs.  That  effort  exceeded  our  time  estimates  due  to  the  complexity  of  the 
TEL-A-GRAF  command  language.  On  the  other  hand,  CPL,  a  programming  language 
written  specifically  for  Prime  minicomputers,  exploits  the  hardware  to  best  advantage. 
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The  integration  of  the  two  environments  was  accomplished  by  building  a 
shell  around  TEL-A-GRAF  that  would  allow  the  average  user  to  make  use  of  menus 
to  produce  desired  graphs,  rather  than  use  the  TEL-A-GRAF  command  language. 
/   Problems 

Due  to  our  initial  lack  of  understanding  of  the  importance  of  the  data  base, 
this  system  was  built  with  a  file  management  orientation.  It  is  now  obvious  to  us  that 
this  approach  was  in  error.  The  system  should  have  been  built  around  a  data  base 
management  system.  This  would  have  produced  a  more  flexible  system- 
Geographic  separation  from  the  users  during  the  development  increased  the 
difficulties.  Close  coordination  with  the  users  was  then  not  possible,  and  resulted  in 
misunderstood  requirements  and  goals.  We  only  had  access  to  the  development 
language  via  networking  over  FTS  lines,  which  at  times  became  unusable  due  to  noise. 
In  addition,  the  version  of  TEL-A-GRAF  locally  available  to  us  was  not  directly 
compatible  with  that  available  at  the  user  site.  Consequently,  last  minute  changes  were 
required  before  demonstrating  to  the  users. 

A  major  limitation  of  CPL  is  that  sub-routines  can  not  pass  parameters  up 
to  a  calling  procedure.  Thus  most  "atomic''  routines  had  to  be  programs.   This  resulted 
in  many  small  programs  making  up  the  system.   Although  this  was  not  a  problem  for 
us,  it  could  be  a  problem  for  the  users  and  those  who  will  maintain  the  system. 
2.  Cost  Center  Analysis  (microcomputer) 
a.  Introduction 

This  system  was  developed  to  address  the  most  critical  problem  of  the 
minicomputer  implementation,  the  lack  of  a  data  base  management  orientation.  In 
order  to  develop  a  system  that  allowed  easy  data  maintenance,  it  became  apparent  that 
a  file  management  application  would  not  be  effective  for  an  historical  data  base.  This 
version  is  integrated  with  a  DBMS  in  order  to  provide  the  easy  expandability  which 
would  be  beneficial  to  the  users. 

Originally,  this  was  to  be  a  concurrent  development  of  the  Cost  Center 
Analysis  system.  Therefore,  there  was  no  consideration  given  for  compatibility  of  the 
"micro"  development  language  with  the  "mini"  development  language,  C  and  CPL 
respectively.  They  were  to  address  two  separate  development  issues,  and  the  language 
used  for  each  was  irrelevant  to  the  efforts. 

The  design  of  the  data  base  is  relevant  to  each  since  it  could  be  applied  to 
either  system.    Oracle  was  therefore  selected  as  the  DBMS  because  it  is  available  for 
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microcomputers,  minicomputers  and  mainframes  in  general,  and  in  particular  is 
scheduled  for  implementation  at  the  shipyard  on  the  Prime  network.  This  will  provide 
the  users  greater  flexibility. 

b.  Requirements 

Cost  Center  Analysis  (microcomputer)  hardware  requirements  are  an  IBM 
PC/XT/ AT  with  at  least  640KB  and  a  hard  disk.  A  printer  is  optional  for  the  output 
print  options. 

The  software  requirements  are  the  Oracle  Data  Base  Management  System 
(DBMS),  PC/MS-DOS,  and  the  Cost  Center  Analysis  and  Graphic  Utilities  programs, 
all  installed  on  a  hard  disk. 

c.  Module  description  and  functions 

The  hierarchy  chart  depicted  in  Figures  5.4  and  5.5  graphically  describes 
the  interrelationships  between  the  following  program  modules. 

(1)  Cost  Center  Analysis.  This  main  module  contains  the  three  major  sub- 
modules  of  the  system: 

1.  Cost  Center  Information 

2.  Command  Level  Entry 

3.  Graphics  Displays 

It  provides  the  interface  for  Oracle  and  graphics.    It  also  allows  easy 
access  and  display  of  Oracle. 

(2)  Graphics.  This  module  allows  the  user  to  use  already  developed 
graphs  with  data  not  obtained  from  Oracle  directly,  but  input  to  a  file  by  the  user. 
Oracle  can  also  read  specified  data  into  a  file  form  within  the  Cost  Center  Information 
module.   This  data  can  then  be  plotted  from  within  the  graphics  module. 

(3)  Command  Level.  This  allows  the  user  the  opportunity  to  use  Oracle  at 
the  command  level,  through  the  User  Friendly  Interface  (UFI).  Ad  hoc  queries, 
updates  of  the  data  base,  deletions,  insertions  and  other  procedures  can  be 
accomplished  in  this  mode. 

(4)  Cost  Center  Information.  This  is  the  main  menu  driven  shell  for  CCA. 
It  allows  easy  access  to  specified  information  and  display  of  that  information.  CCI 
also  sends  specified  data  to  a  file  for  the  graphics  routines  to  use. 

(5)  Budget  VS  Expenses.  This  allows  display  and  comparison  of  budget 
and  actual  expense  information  by  various  categories,  and  interfaces  data  with 
graphics  for  further  displays. 
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Figure  5.4     Hierarchy  Chart  of  CCA  (microcomputer). 
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(6)  Individual  Display.  This  module  displays  budget  vs  expenses  to  date  in 
thousands  of  dollars  for  either  Labor,  Material,  or  Other,  sorted  by  Cost 
Function/Cost  Class. 

(7)  Budget  Summary.  This  displays  budget  by  Cost  Function/Cost  Class 
for  the  current  fiscal  year. 

(8)  Display  Labor.  Budget  vs  expense  by  Cost  Function/ Cost  Class  for 
Labor  are  displayed. 

(9)  Display  Material.  Budget  vs  expense  by  Cost  Function/Cost  Class  for 
Material  are  displayed. 

(10)  Display  Other.  Budget  vs  expense  for  Other  costs  by  Cost 
Function/Cost  Class  are  displayed 

(11)  Total  Budget  VS  Expense.  This  module  sums  Labor,  Material 
and  Other  for  budget  and  expenses  to  date  by  Cost  Function,  Cost  Class,  Cost 
Function/Cost  Class  and  Cost  Center  as  requested,  and  sends  the  information  to  the 
graphics  utilities  when  directed. 

(12)  Total  by  Cost  Function.  This  sums  budget  and  expenses  to  date 
by  Cost  Function  and  displays.  It  sends  the  information  to  a  file  for  graphing,  upon 
request. 

(13)  Total  by  Cost  Class.  This  sums  budget  and  expenses  to  date  by 
Cost  Class  and  displays.   It  sends  the  information  to  a  file  upon  request  for  graphing. 

(14)  Total  by  Cost  Function/ Cost  Class.  It  sums  budget  and  expenses 
to  date  by  Cost  Function/ Cost  Class  and  displays. 

(15)  Total  by  Cost  Center.  This  module  sums  budget  and  expenses  to 
date  for  the  entire  Cost  Center  and  displays.  It  sends  the  information  to  a  file  for 
graphing  upon  request. 

d.  Implementation 

The  CCA  system  (microcomputer)  is  operational  but  not  to  the  extent  that 
we  originally  hoped.  The  memory  limitations  of  the  PC  prohibited  us  from  linking 
graphics  with  Oracle  directly.  To  perform  the  graphics,  extra  commands  must  be 
initiated  at  the  DOS  level.  This  was  not  the  original  intent.  The  system  indirectly  links 
Oracle  with  the  graphics,  which  still  accomplishes  our  original  goal. 

The  degree  of  difficulty  in  using  C  to  drive  both  the  graphics  and  Oracle 
was  underestimated  at  the  outset  of  this  project.  Another  limitation  had  to  do  with  the 
disk  storage  space  needed  to  support  all  the  products  that  were  tied  together.    The 
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Figure  5.5    Continued  Hierarchy  Chart  of  CCA  (microcomputer). 
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system  we  developed  this  on  was  already  heavily  loaded  with  other  systems  and  thus 
hampered  our  development.  This  initial  prototype  system  will  allow  the  user  a  chance 
to  see  what  a  final  system  could  do,  and  to  further  direct  efforts  in  the  development  of 
future  prototypes. 

e.  Usability 

This  analysis  system  was  primarily  designed  for  the  inexperienced  or  casual 
user.  They  would  be  individuals,  such  as  managers,  who  have  not  yet  learned  the 
Oracle  command  language,  SQL,  or  never  intend  to  learn  it. 

During  the  analysis  portion  of  this  project  we  identified  the  information 
needs  of  the  users.  Queries  were  written  within  the  "shell"  to  specifically  address  these 
needs.  So,  the  average  user  is  not  likely  to  require  ad  hoc  queries,  at  least  in  the  short 
term. 

However,  we  have  included  the  ability  for  them  to  handle  unexpected  or 
unanticipated  questions,  or  to  make  necessary  data  modifications.  This  ability  is 
provided  by  our  system  through  the  Oracle  UFI.  This  interface  does  require  using  the 
command  language,  since  the  user  will  no  longer  have  the  menu  support  of  the  shell. 

Advanced  users  who  would  tire  of  the  system  menus  could  enter  the  UFI 
through  the  top-level  menu.  Occasionally,  they  might  make  use  of  the  system,  but  if 
they  know  the  command  language  they  will  probably  enter  the  UFI  directly. 

f.  Expandability 

As  mentioned,  ad  hoc  queries  are  supported  through  the  use  of  the 
command  language  option.  The  Command  language  allows  the  user  to  interface  with 
Oracle  via  the  UFI  as  described  above.  The  user's  manual  (Appendix  C)  shows  many 
examples  and  possible  approaches  to  retrieving  information  using  UFI. 

This  system  was  designed  to  be  used  by  only  one  Cost  Center.  However, 
this  is  a  prototype  system  that  could  be  expanded  to  all  Cost  Centers  within  the 
shipyard.  To  accomplish  this,  data  base  views  of  each  Cost  Center  could  be  developed, 
giving  the  manager  of  a  Cost  Center  access  only  to  his  own  information.  Higher 
management  could  have  access  to  all  data  as  necessary.  Only  minor  adjustments 
would  be  necessary  to  implement  this,  namely  inserting  another  module  in  the 
hierarchy  above  the  CCI  module  allowing  the  specification  of  a  Cost  Center, 
combination  of  Cost  Centers,  or  all  Cost  Centers  depending  on  the  access  level  of  the 
requestor  and  his  interest.  The  specific  views  can  be  provided  through  the  data  base 
management  system.    The  amount  of  data  necessary  to  support  just  one  more  Cost 
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Center  would,  however,  double  the  amount  of  data.   This  would  not  only  increase  the 
storage  requirements,  but  would  also  increase  the  information  retrieval  time. 
g.   Reliability 

Any  large  program  written  in  C  is  suspect  when  the  question  of  reliability 
comes  up.  The  strange  and  wonderful  things  that  C  programs  can  do  when  errors 
occur  can  be  truely  awe  inspiring.  However,  painstaking  error  traps  have  been  built  in 
to  counter  all  known  problems.  Each  input  from  the  user  is  checked  for  validity. 
Numbers  are  checked  to  see  if  they  are  in  range  and  if  not,  the  user  is  returned  to  the 
same  menu.  The  user' also  has  the  opportunity  to  review  his  inputs  to  insure  that  the 
value  inputed,  was  the  value  he  really  wanted. 

B.       GRAPHICS  MODULE 

After  we  constructed  the  initial  structure  chart  we  exploded  both  main  modules: 
the  control  module  and  the  graphics  module.  Then  we  began  the  detailed  design  of  the 
graphics  module  by  following  the  ROMC  approach  [Ref.  2].  The  initial  representations 
were  given  to  us  by  the  user,  who  had  been  creating  graphs  for  his  own  use  on  a 
microcomputer  using  LOTUS  123.  These  graphs  were  time  consuming  to  produce 
because  the  data  had  to  be  extracted  and  inputed  by  hand. 

The  user  wanted  multiple  graphs  on  one  page  which  would  summarize  the  data 
more  effectively.  The  first  graph  that  he  wanted  was  a  bar  graph  of  the  budgeted 
amounts  for  the  Cost  Center,  broken  down  by  Cost  Function.  On  the  same  page  with 
that  graph  he  wanted  a  plot  of  the  budget  versus  the  actual  expenses  as  a  function  of 
time  (see  Figure  5.6  ).  This  plot  was  applicable  to  either  the  total  Cost  Center  or  for 
one  of  its  Cost  Functions. 

Our  methodology  for  designing  the  graphs  paralleled  the  methodology  we 
incorporated  in  our  DSS  development:  an  iterative  approach.  These  graphs  were  then 
scrutinized  and  revised  as  necessary. 

Most  of  the  actual  keying  of  the  code  was  done  180  miles  away  from  the 
shipyard  via  telephone  lines.  The  original  coding  iterations  were  done  on  the  Naval 
Postgraduate  School's  IBM  3033,  before  entering  on  the  Prime.  The  School,  like  the 
shipyard,  has  TEL-A-GRAF  and  the  code  is  transferable  between  systems,  with  one 
exception.  The  window  sizes  created  for  the  graphs  on  the  IBM  were  slightly  different 
for  the  Prime.  Therefore,  complete  testing  could  not  be  performed  until  we  actually 
went  to  the  shipyard.  We  could  test  for  coding  errors,  by  observing  a  run.  but  the 
terminal  we  used  to  input  the  code  did  not  support  the  graphics. 
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Figure  5.6    Composite  Graph,  Bar  Chart  and  Plot  of  Budget  VS  Expense. 
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1.  TEL-A-GRAF 

As  our  first  step  we  learned  TEL-A-GRAF,  the  graphics  system  that  we  would 
be  using.  "TEL-A-GRAF  is  a  conversational  computer  graphics  system  that  produces 
publication  quality  charts  and  graphs  [Ref.  12:  p.  A-3]." 

The  tutorial  for  TEL-A-GRAF  [Ref.  12],  walks  the  user  through  some  simple 
graphs.  The  command  language  is  English-like  and  was  easy  to  follow  for  the  simpler 
graphs.  TEL-A-GRAF  encourages  the  user  to  experiment  when  building  graphs  until 
he  gets  the  desired  format;  again  an  iterative  approach. 

A  profile  file  tells  TEL-A-GRAF  which  device  the  user  is  on,  what  his 
secondary  device  is,  and  other  facts  necessary  for  TEL-A-GRAF  to  operate.  If  the 
user  does  not  have  a  profile  file,  TEL-A-GRAF  will  prompt  the  user  for  the  necessary 
information.  For  our  system  we  wanted  the  control  of  TEL-A-GRAF  to  be 
maintained  by  the  control  module.  Therefore,  a  profile  file  must  be  established  prior  to 
the  use  of  this  system  for  each  user.  A  Sample  profile  file  that  was  used  when 
developing  the  system  is  shown  in  figure  5.7  . 


PRIMARY  DEVICE  IS  TEX618. 
SECONDARY  DEVICE  IS  POP. 
SECONDARY  DEVICE  UNIT  NUMBER  IS  1, 
PAGE  LAYOUT  IS  HRV. 
ERROR  REPORTING  LEVEL  IS  0. 


Figure  5.7    Sample  TEL-A-GRAF  Profile  File. 

TEL-A-GRAF  can  be  used  on  a  variety  of  devices.  The  primary  device  refers 
to  the  main  device  that  the  user  wants  to  create  his  graphics  on.  When  the  commands 
"GO."  or  "DRAW  1  2."  are  issued  the  graphics  file  is  created  for  the  device  named  as 
primary  device.  If  the  command  "SEND"  is  issued  the  graphics  file  created  is  for  the 
secondary  device. 

TEL-A-GRAF  also  has  the  capability  of  creating  a  device  independent 
graphics  file  that  can  be  used  later  on  any  graphics  device,  such  as  printers,  plotters,  or 
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other  graphics  terminals.  This  is  accomplished  through  the  use  of  the  Post  Processor, 
known  as  "POP".  By  naming  either  the  primary  or  secondary  device  as  "POP",  a  device 
independent  file  will  be  created.  This  file  can  then  be  executed  later  using  the 
DISSPOP  command.  Appendix  B  provides  further  information  on  the  use  of  TEL-A- 
GRAF. 

The  profile  file  can  be  changed  while  in  TEL-A-GRAF  at  the  command  level. 
When  the  generate  prompt  of  TEL-A-GRAF  appears,  a  device  or  value  of  a  profile  file 
can  be  changed  by  issuing  a  command  such  as  "PRIMARY  DEVICE  IS  POP."  This 
command  would  change  the  primary  device  to  the  post  processor  for  the  remainder  of 
that  session. 

a.   Composite  Graph 

Once  we  were  familiar  with  the  TEL-A-GRAF  language,  the  actual  coding 
of  the  first  graphs  began.  This  was  in  itself  an  iterative  process.  The  basics  learned 
from  the  tutorial  [Ref.  12],  and  the  specific  requirements  for  these  graphs  were 
aggregated  to  produce  the  finished  product.  Figure  5.6  shows  the  final  graph  for  the 
two  initial  graphs  suggested  by  the  decision  maker.  One  of  our  main  goals  while 
developing  this  code  was  to  keep  the  graphics  module  independent.  We  designed  the 
graphics  to  run  from  a  batch  type  mode.  We  assumed  the  data  was  in  independent 
files  in  the  necessary  format.  This  allowed  us  to  concentrate  on  the  display  and  not 
worry  at  this  point  on  how  the  data  got  to  be  in  those  files.  This  is  a  flexible 
approach  that  will  allow  the  shipyard  to  choose  any  data  base  system  to  complete  the 
implementation.3 

Each  graph  required  a  data  file  and  at  least  one  include  file.  The  data  file 
contained  the  formated  data  as  TEL-A-GRAF  would  accept  it.  Figure  5.8  shows  one 
format  that  TEL-A-GRAF  will  accept.   Other  formats  are  discussed  in  Appendix  B. 

The  include  files  contained  the  TEL-A-GRAF  commands  which  set  up  the 
graphs.  The  original  include  files  contained  the  titles  and  labels  for  cost  center  9110. 
To  change  the  title  or  labels  to  create  a  similar  graph,  a  secondary  include  file  was 
created.  This  secondary  include  file  changed  title  and  label  line  commands  in  the  major 
include  file.  This  allowed  the  flexibility  to  create  the  same  graph  from  different  data. 
These  include  files  could  also  be  called  up  by  hand  and  changed  line  by  line  to  fit  a 
different  need  of  the  user.   This  made  the  design  of  a  modular  system  simpler.   The  first 


3We  recommend  a  relational  data  base  for  flexibility.    The  data  will  be  discussed 
in  detail  later. 
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INPUT  DATA. 
"BUDGET" 

0  0  1  0.8035  12  9.64198 
"EXPENSE'' 

O'O  1  6.92  2  1.59901  3  2.4567  4  3.34567  5  4.0002  6  4.78999  7 
5.477  8  6.008  9.2  6.91127 
END  OF  DATA. 
**FILE** 


Figure  5.8    TEL-A-GRAF  Data  File. 

include  file  contained  the  commands  for  a  graph  labelled  for  Cost  Center  9110.    If  the 
graph  was  to  display  a  Cost  Function,  instead  of  the  Cost  Center,  another  include  file 
was  needed  to  change  the  labels  and  title.   When  other  Cost  Centers  are  added  to  the 
system,  the  same  process  will  apply. 
b.    Triple  Bar  Graph 

Once  the  initial  graph  was  complete,  we  began  the  design  of  a  new 
representation.  Based  on  our  analysis,  we  determined  that  a  bar  graph  which  displayed 
the  total  budgeted  data,  the  budget  as  a  straight  line  percentage  of  the  elapsed  fiscal 
year,  and  the  actual  expense  to  date  would  be  useful.  This  is  basically  the  same 
information  displayed  in  the  original  composite  graph.  However,  we  felt  that  this 
prototype  should  offer  a  choice  of  representations  to  the  manager.  One  purpose  of  a 
DSS  is  to  provide  the  decision  maker  with  the  appropriate  information  in  a  format 
with  which  he  is  comfortable.  This  allows  the  decision  maker  to  choose  one  of  the 
formats. 

The  same  iterative  process  was  followed  when  creating  the  second  graph. 
After  repeated  testing  and  manipulations,  the  graph  was  ready.  This  graph  was  also 
created  using  the  TEL-A-GRAF  include  files.  This  allowed  for  one  basic  command  file 
that  the  other  includes  build  from.  This  strategy  made  the  manipulations  of  the  labels 
only  a  matter  of  changing  one  line,  rather  than  rewriting  the  entire  program.  The  data 
was  again  assumed  to  be  already  in  place,  properly  formatted. 
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Figure  5.9    Triple  Bar  Graph  for  Cost  Center  9110. 
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Figure  5.9  shows  the  finished  graph.  This  graph  summarizes  and  compares 
the  budget  to  expenses,  both  to  the  total  budget  and  to  the  percent  of  budget  as  a 
function  of  time.  Although  not  specifically  addressed,  variances  can  be  identified  and 
estimated  using  this  graph. 

c.    Variance  Analysis  Graphs 

The  last  graphs  developed  represented  four  bar  graphs  displayed  on  one 
page.  These  graphs  display  variance  of  the  Cost  Center  for  overtime,  straight  time 
Hours  and  Labor,  Material,  Other  and  Total.  Again,  the  same  iterative  approach  was 
taken  in  coding.  The  data  was  also  assumed  to  be  present  in  the  data  file.  The  graphs 
contained  the  following  information: 

1.  Percent  Expended 

2.  Data  Normalized  on  the  Percent  of  Elapsed  Time 

3.  Variance  in  Dollars 

4.  Percent  variance 

These  graphs  were  suggested  by  the  user.  They  are  designed  to  fill  a  gap  in  the 
analysis  of  variance.  The  exact  manipulation  of  the  data  to  attain  these  figures  is 
explained  below.  Figure  5.10  shows  the  structure  and  format  of  these  graphs.  A  brief 
description  of  each  follows. 

The  percent  expended  shows  the  percent  of  elapsed  time  based  on  the  date 
of  the  data  and  the  amount  of  the  fiscal  year  elapsed.  The  remaining  percentages 
represent  the  percent  of  the  budget  expended.   The  formula  for  this  is: 

Percent  Expended  =  Expense  /  Budget 

Labor  is  broken  down  into  overtime  and  straight  time.  These  are  key  areas  of  interest 
to  the  manager  because  he  usually  has  direct  control  over  Labor. 

The  data  normalized  on  percent  elapsed  time,  normalizes  the  elapsed  time 
to  one.  This  normalization  changes  the  percent  expended  from  the  first  graph  into  a 
percentage  of  elapsed  time.  That  is,  if  20%  of  the  budget  was  expended  and  20%  of 
the  year  had  elapsed,  the  normalized  value  would  be  one,  the  same  as  elapsed  time.  If 
the  normalized  percentage  is  less  than  one,  less  has  been  spent  in  that  category.  If  the 
percentage  is  greater  than  one,  more  than  the  percentage  was  spent. 

Normalized  =  Percent  Expended  /  Percent  of  Year/  100 
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F:igure  5.10     Four  Graphs  for  Variance  Analysis. 
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Variance  in  dollars  gives  the  dollar  amounts  of  the  variance.  This  is 
important  because  the  percentages  can  be  deceiving.  If  a  category  has  a  large  variance, 
but  only  a  small  amount  of  money  was  budgeted,  the  dollar  amount  may  be 
insignificant.  For  items  with  large  dollar  amounts,  small  variances  could  involve  large 
sums  of  money  and  be  much  more  significant  to  the  financial  situation. 

Variance  =  Expense  -  (%  of  Year  *  Budget) 

Percent  variance  displays  the  values  as  the  percentage  based  on  the 
budgeted  amount.  This  is  the  percent  of  the  budget  divided  into  the  amount  expended. 

%  Variance  =  Variance  /  (%  of  Year  *  Budget  /  100) 
2.  Graphics  on  the  Microcomputer 

The  implementation  on  the  microcomputer  followed  the  same  design  as  the 
implementation  on  the  minicomputer  for  the  graphics.  The  variance  graphs,  however, 
were  not  implemented  on  the  "micro."  The  graphs  produced  and  the  completion  of  the 
data  base  on  the  microcomputer,  demonstrate  the  technical  feasibility  of  this 
implementation.   However,  there  are  limitations  that  must  be  considered. 

The  memory  limitations  on  the  micro  did  not  allow  us  to  implement  a  fully 
interactive  system.  The  graphics  package  used,  Graphic,  combined  with  the  data  base 
programs  and  the  control  programs  would  not  run  as  an  integral  system  due  to 
insufficient  memory.  This  was  resolved  by  having  the  control  program  interact  only 
with  the  data  base.  The  control  program  would  ask  the  user  if  he  wanted  a  graph  of 
appropriate  data.  If  the  user  responded  positively,  a  data  file  would  be  created  that 
would  be  accessed  by  the  graphics  program.  The  user  would  then  leave  the  control 
program,  choose  the  correct  program  to  run,  and  run  it.  The  data  file  is  accessed 
automatically. 

The  graphic  programs  on  the  microcomputer  were  more  complicated  to  code 
than  the  TEL-A-GRAF  graphics  on  the  minicomputer.  Compiling  and  linking  slowed 
down  the  iterative  design  process,  but  the  same  procedures  for  developing  the 
microcomputer  graphics  were  followed.  But  formatting  the  output  data  was  not  a 
problem  since  the  data  base  management  system  and  the  Graphic  utilities  were  written 
in  a  common  language,  C. 
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C.       DATA 

The  data  was  not  a  major  concern  for  us  during  the  first  iteration  with  the 
minicomputer,  except  for  identifying  a  particular  data  element  needed  for  each  graph. 
Since  the  shipyard  was  responsible  for  extracting  the  data,  we  concentrated  on  the 
control  program  and  the  graphics.  When  we  began  the  microcomputer 
implementation,  the  overall  design  was  completed.  However,  this  implementation 
actually  dealt  with  the  data,  so  it  became  the  central  focus.  Although  we  side  stepped 
the  issue  in  the  initial  effort,  we  found  that  the  data  structure  played  a  key  role  in  the 
design. 

1.  Data  Base  on  the  Microcomputer 

Originally,  we  identified  the  origin  of  the  data  elements.  The  origin  of  the 
data  was  the  reports  that  were  generated  on  the  shipyard's  mainframe.  However, 
halfway  through  the  analysis,  the  reports  changed.  The  new  reports  from  SABRS 
contained  the  information  in  a  variety  of  formats  and  was  produced  on  the 
minicomputer.  This  report  (SBR-22A)  summarized  the  data  by  Cost  Function/Cost 
Class  for  each  Cost  Center.  This  was  the  best  way  to  store  the  data  for  our  data  base 
because  all  combinations  of  Cost  Centers,  Cost  Function,  and  Cost  Class  can  be 
derived  from  this  information,  thus  minimizing  the  storage  of  the  data. 

One  problem  occurred  that  caused  our  data  base  to  be  larger  than  originally 
planned.  Entries  that  do  not  have  values  must  be  entered  as  zero.  This  greatly 
expanded  the  data  base  because  many  authorized  Cost  Functions  rarely  use  some 
authorized  Cost  Classes.  However  if  they  are  omitted,  inconsistencies  occur  when  the 
budget  and  expense  tables  are  joined  in  an  operation.  For  example,  if  a  particular  Cost 
Function/Cost  Class  did  not  have  a  budgeted  amount,  but  did  have  a  later  expense,  the 
expense  would  be  lost  in  a  comparison.  The  tables  of  the  data  base  are  joined  on  the 
Cost  Function/Cost  Class  combination  and  if  there  is  no  value  for  a  particular  Cost 
Function/Cost  Class,  the  value  from  the  expense  table  is  not  included  in  the  resulting 
joined  table. 

The  result  is  that  an  entry  must  be  present  for  each  authorized  Cost 
Function; Cost  Class.  The  budget  table  contains  only  one  value  for  each  authorized 
Cost  Function/Cost  Class.  The  expense  table  on  the  other  hand,  must  contain  a  value 
for  each  update.  This  means  the  table  increases  in  size  on  each  update  by  a  constant. 
If  the  update  is  made  every  two  weeks,  approximately  26  updates  will  have  occured. 
That  means  the  expense  table  will  be  26  times  the  size  of  the  budget  table. 
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2.  Historical  Data  Base 

If  an  historical  data  base  is  desired  For  the  DSS,  an  additional  field  will  need 
to  be  added  to  the  budget  table:  the  fiscal  year.  All  selects  based  on  the  current  fiscal 
year  will  have  to  be  identified  by  year,  or  by  maximum  fiscal  year,  if  the  next  year's 
budget  is  not  yet  installed. 

3.  Data  Base  Design 

We  anticipate  that  the  final  system's  data  base  will  be  electronically  updated. 
The  volume  of  the  data  is  very  predictable.  The  expense  data  will  be  appended  at  mid- 
month  and  at  the  end  of  each  month. 

The  data  retrieval  rate  is  estimated  to  be  fairly  low  10  to  20  times  daily.  At 
critical  periods  in  the  fiscal  year,  the  utilization  will  be  much  higher,  such  as  the  end  of 
quarters,  prior  to  mid  year  review,  and  at  the  end  of  the  fiscal  year.  The  retrieval  rates 
at  those  times  is  estimated  to  double  or  triple. 

Managers  can  allow  others  access  to  their  data  base  with  read  only  privileges. 
Some  information  and  views  can  also  be  restricted  using  the  data  base's  userids  and 
passwords.  This  can  increase  the  utilization  of  the  data  base  while  still  maintaining 
control  over  the  dissemination. 

a.   Bachman  Diagram 


Budget 

i 

i 

- 

Expense 

Figure  5.11     Data  Base  Design  Bachman  Diagram. 

The  main  relationship  for  this  implementation  is  the  one  between  budget 
and  expenses.    As  depicted  in  Figure  5.11  this  is  a  one  to  many  relationship.    Even  if 
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budgets  are  developed  monthly  or  quarterly  the  relationship  holds.   The  newer  budgets 
simply  supersede  the  older  ones. 

b.  Relational  Model 

The  record  structures  are  depicted  for  the  data  base  design  (keys  are 
italicized): 

1.  BUDGET  (COST  FUN  NO.   COST  CLASS  NO,  ST  HOURS,   OT   HOURS, 
ST  LABOR,  OT  LABOR,  MATERIAL,  OTHER) 

2.  EXPENSE!  COST  FUN  NO,    COST  CLASS  NO,  DATE,   ST   HOURS,   OT 
HOURS,  ST  LABOR,  OT  LABOR,  MATERIAL,  6THER) 

c.  Normal  Forms 

Normalization  is  a  process  by  which  we  attempt  to  rniiiimize  "anomalies"  in 
the  data  base  design.  These  anomalies  generally  can  cause  data  inconsistencies,  loss  of 
entire  records  during  updating,  and  inappropriate  relationships  between  different  record 
types  when  joining  tables.  The  effort  is  to  normalize  to  as  high  a  degree  as  possible, 
trading  off  retrieval  performance  and  increasing  interrelational  constraints  [Ref.  13]. 

In  the  discussion  of  normal  forms,  we  do  not  attempt  to  justify  our 
normalization  beyond  the  third  normal  form.  We  felt  that  the  excessive  interrelational 
constraints  would  tend  to  make  the  data  base  less  workable.  In  addition,  all  tables  are 
in  first  normal  form,  because  of  the  lack  of  repeating  groups  in  our  data  structures,  so 
discussions  that  further  illuminate  that  point  are  not  needed. 

(1)  BUDGET  Table. 

This  table  is  in  second  normal  form  since  all  the  non-key  attributes  rely 
on  all  of  the  key  (Cost  Function  number  and  Cost  Class  number).  Additionally,  all  the 
non-key  attributes  are  independent  of  each  other.  For  example,  Hours  (straight  or 
overtime)  does  not  directly  relate  to  Labor  cost,  since  it  requires  computations  and 
reference  to  other  schedules  in  order  to  be  produced.  That  is  the  reason  why  both 
Hours  and  Labor  are  listed.  With  the  independent  non-key  attributes,  there  are  no 
transitive  dependencies,  placing  Budget  in  third  normal  form. 

(2)  EXPENSE  Table.  The  Expense  table  is  similar  in  structure  to  the 
Budget  table.  However,  it  has  an  additional  attribute  in  the  key,  Date.  All  the  non- 
key  attributes  require  reference  to  all  attributes  of  the  key,  so  this  table  is  aiso  in 
second  normal  form.  Again  the  non-key  attributes  do  not  directly  relate  to  each  other, 
so  it  is  also  in  third  normal  form. 

d.  Interrelational  Constraints 
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data  base.  The  important  questions  to  consider  are  do  the  designers  realize  its 
existence,  do  they  understand  why  it  is  there,  and  are  they  in  control  of  it.  In  this  data 
base  the  existence  of  the  interrelations  is  largely  a  function  of  the  nature  of  the 
problem  that  the  data  base  attempts  to  address.  The  greatest  interrelational 
dependency  is  caused  by  the  Cost  Function  and  Cost  Class  numbers.  They  are  the 
most  integral  pieces  of  data  within  the  data  base.  Without  them  the  tables  that 
contain  them  would  be  meaningless.  They  are  the  language  for  tracking  costs  of 
operations  within  the  Cost  Centers  of  the  Shipyard.  They  categorize  the  data. 

Combining  all  the  tables  with  these  common  attributes  is  not  a  sufficient 
answer  to  reduce  interrelational  constraints,  since  that  would  reduce  the  normalization 
of  the  tables,  and  increase  redundancy,  the  trade-off*  is  to  keep  this  interrelational 
constraint,  since  it  requires  the  least  overhead  and  maintenance. 
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VI.  INTERPRETATION  OF  THE  DEVELOPMENT  EFFORT 

A.       ANALYSIS  OF  THE  METHODOLOGY 

The  approach  we  applied  to  this  development  effort  appears  to  have  worked  well 
for  this  project.  The  requirements  presented  to  us  were  not  clear,  since  the  users  did 
not  have  a  concrete  idea  of  what  they  specifically  needed  or  wanted  for  this 
information  retrieval  and  display  system.  In  addition,  we  did  not  have  a  clear 
understanding  of  what  was  being  asked  of  us,  and  what  the  effort  would  entail. 

The  methodology  we  selected  forced  us  to  be  thorough  in  our  analysis  and 
design,  and  gave  us  flexibility  to  alter  development  directions.  We  elected  to  follow  a 
combination  approach,  which  we  felt  would  best  answer  the  needs  and  requirements  of 
this  particular  project.  This  pilot  project  was  carried  out  within  the  framework  of  a 
prototyping  approach.  The  development  environment  follow  the  dictates  of  Yourdon 
for  a  prototyping  environment  [Ref.  3:  pp.  225-226]: 

1.  There  is  only  a  single  user  or  at  most  a  small  aroup  of  users  who  are  'localized' 
in  the  sense  that  they  work  in  the  same  organizational  group  and  within  the 
same  physical  location. 

2.  The  data  model  exists  or  can  be  easily  created. 

3.  The  application  is  small  to  medium. 

4.  Everyone  agrees  that  the  prototype  is  onlv  a  'toy'  svstem  and  that  it  is  intended 
as  nothing  more  than  a  model  of  the  production  sys'tem 

The  prototype  approach  was  essential.  We  were  attempting  to  develop  a  system 
based  on  an  unclear  problem  statement  and  no  prior  experience;  we  required  the  slack 
that  this  approach  could  provide.  Meeting  Yourdon's  premises  further  supported  the 
prototyping  decision. 

Our  approach  to  prototyping  was  not  simply  to  go  forward  and  start  writing  lines 
of  code.  Within  this  framework  we  applied  structured  analysis  to  conduct  the  analysis 
of  the  present  situation.  We  selected  the  structured  tools  in  order  to  provide  ourselves 
with  the  clearest  appraisal  of  the  users'  present  system.  The  structured  design 
following  the  analysis  easily  flows  from  the  same  tools  and  provides  the  users  with  a 
clear  documentation  of  how  the  system  was  designed.  The  resulting  structured 
specification  of  data  flow  diagrams,  data  dictionary  and  structure  chart  clarified  our 
understanding  and  assisted  the  coding  efforts  of  the  two  phases. 


71 


1.  Documentation 

The  program  design  of  the  first  project  more  closely  followed  the  structured 
design  than  the  second  did.  The  major  reason  is  that  during  the  second,  the 
orientation  of  the  project  shifted.  The  importance  of  the  data  base  design  became 
apparent  during  the  microcomputer  implementation.  The  design  and  structure 
documents  are  purposely  made  broad  to  keep  from  locking  in  on  one  system. 
Although  the  constraints  of  hardware  and  software  greatly  limit  the  alternatives,  by 
keeping  the  design  flexible  and  general,  several  alternatives  became  apparent. 

In  actuality,  we  built  two  prototypes  in  this  project.  Although  neither  are 
complete  in  the  sense  of  a  production  model,  both  contributed  to  the  overall  project. 
Neither  system  as  yet  has  the  capability  to  be  updated  electronically.  Yet  both  rely  on 
the  concept  of  the  electronic  update  based  on  the  SABRS  reports  for  their  feasibility. 
The  minicomputer  version  has  a  data  base  in  design  concept  only.  The  microcomputer 
version  does  not  have  all  the  graphs  implemented,  and  none  of  the  variance  analysis 
graphics.  However,  although  they  are  different  systems,  together  they  complement 
each  other  by  providing  us  with  differing  views  of  the  same  project. 

The  quick  implementation  of  the  microcomputer  version  proves  that  the 
design  was  generic  enough  to  be  implemented  on  two  completely  different  systems. 
The  design  for  the  major  modules  was  already  completed.  We  quickly  found  that  a 
more  detailed  design  was  necessary  to  actually  develop  the  data  base.  This  is  part  of 
the  iterative  process.  Now  the  data  base  design  is  completed  and  could  be 
implemented  on  the  minicomputer  relatively  quickly. 

All  the  modules  were  designed  to  be  independent,  with  low  coupling.  This 
helped  us  create  a  system  that  could  be  implemented  on  two  different  systems.  As  the 
final  alternative  is  selected,  only  the  automation  boundaries  and  the  timings  of  the 
system  will  probably  need  to  be  changed  in  the  design  documentation. 

2.  Iterative  Approach 

The  iterative  approach  also  was  very  successful  for  us.  Allowing  the  user  to 
see  the  progress  and  make  changes  throughout  the  project  enhanced  the 
communications  between  the  user  and  the  developers.  This  communication  is  very 
important  to  any  methodology  and  no  less  with  this  one. 

The  iterative,  prototyping  approach  proved  its  flexibility  when  the  users 
changed  to  a  new  accounting  system,  known  as  SABRS.  SABRS  changed  the  format 
of  the  input  data  for  CCA.  Although  not  major,  the  changes  demonstrated  the 
significance  of  built-in  flexibility  in  a  development  effort. 
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The  point  of  this  discussion  brought  out  by  the  structured  techniques  is  that 
the  final  system,  whether  prototype  or  production,  must  be  maintainable.  By  this  we 
mean  that  it  must  be  easily  adapted  and  modified  to  meet  the  changes  during  the 
iterative  approach  and  changes  in  user  requirements.  Therefore,  we  strove  to  ensure 
that  the  documentation  of  our  prototype  was  as  clear  and  as  understandable  as 
possible. 

3.  Communication 

Communication  is  not  directly  related  to  any  methodology,  but  is  a  key  factor 
in  any  analysis.  An  analyst  must  be  able  to  communicate  with  the  user.  During  our 
analysis  phase,  we  conducted  several  interviews.  After  focusing  on  a  decision,  budget 
control,  we  set  up  appointments  to  meet  with  various  the  budget  experts  within  the 
shipyard.  At  this  point  the  project  scope  had  not  been  fully  defined  and  we  were 
looking  for  general  information  and  procedures  on  the  budgeting  process.  As  system 
analysts  in  an  interview  situation,  we  quickly  found  ourselves  on  the  receiving  end  of 
several  questions.  Instead  of  doing  the  interviewing  we  were  being  interviewed.  We 
lost  control  of  the  initial  interview  and,  even  though  they  were  still  cooperative,  we 
initially  lost  the  interest  of  a  potential  user  of  a  DSS. 

The  lessons  learned  from  this  interview  were  many.  Interviews,  especially 
initial  meetings,  must  be  carefully  planned.  A  brief  summary  of  the  questions,  or  the 
type  of  questions  that  we  were  going  to  ask  presented  to  the  user  prior  to  the  interview 
would  have  been  a  much  better  way  begin.  The  problem  definition  should  have  been 
defined  better  prior  to  the  interview.  The  Term  DSS  was  also  used  freely,  which 
brought  connotations  of  wonderful  systems  that  have  all  the  answers.  Our  system  was 
a  pilot  project,  not  a  production  system,  and  this  fact  should  have  been  introduced  up 
front. 

We  found  that  our  interviews  with  the  users  were  tainted  by  our  unfamiliarity 
and  our  own  preconceptions  of  what  they  wanted.  These  problems  were  largely  an 
outgrowth  of  our  inability  to  ask  the  right  questions,  our  lack  of  experience  with  the 
interview  process,  and  in  some  cases  our  incomplete  technical  knowledge.  Generally, 
our  abilities  and  interviews  grew  as  our  understanding  of  the  system  and  our  familiarity 
with  the  users  grew.  The  best  interviewing  technique  that  we  found  was  knowing 
ahead  of  time  what  to  ask,  and  asking  it  in  a  manner  that  does  not  cause  a  defensive 
response. 
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This  is  an  area  that  is  usually  glossed  over  by  most  authors  in  the  DSS  arena. 
Possibly  most  authors  do  not  perceive  a  need.  One  answer  might  be  that  most 
developers  do  not  think  they  will  make  those  "classical  types"  of  human  interaction 
errors.  To  many,  these  issues  may  seem  of  little  consequence.  Finally,  these 
development  efforts  are  completed  by  information  specialists  and  not  clinical 
psychologists.  Therefore,  the  tendency  is  to  deal  only  on  a  cursory  level  with  what  is 
not  very  tractable. 

4.  Remote  Site  Development 

Not  being  able  to  be  on-site  during  the  development  process  was  definitely  a 
liability.  This  fact  more  than  any  other  slowed  our  progress.  It  was  difficult  to  find 
time  to  consult  with  the  users,  and  the  distance  of  the  commute  precluded  conferring 
with  the  users  over  what  we  perceived  as  smaller  matters. 

On  a  couple  of  occasions  those  smaller  matters  were  a  lot  more  important 
than  we  had  thought.  Additionally,  a  better  job  of  analysis  could  have  been  done  if  we 
had  more  opportunities  to  consult  with  the  users.  For  example,  the  perception  of 
being  considered  outsiders  to  the  organization  might  have  been  reduced.  We  would 
urge  any  would  be  developers  to  spend  a  significant  and  consecutive  block  of  time  with 
the  users  if  at  all  possible. 

B.       RESULTS  FROM  CCA  PILOT  PROJECT 

Based  on  our  methodology  and  the  resulting  prototypes,  several  conclusions  and 
alternatives  can  be  drawn.  The  first  area  of  concern  is  the  data  extraction.  The  data 
for  the  system  must  be  extracted  from  SABRS.  This  extraction  system  is  the  key  for 
continuance  of  alternatives  based  on  this  project,  other  than  to  stop  any  further 
development  at  this  time.  The  worth  of  the  system  has  been  demonstrated,  making 
this  option  unlikely.   Once  the  data  base  is  extracted  a  repository  must  be  set  up. 

The  data  base  approach  is  essential  to  this  type  of  development.  A  file 
management  approach  is  too  limiting  and  unwieldy  for  systems  that  frequently  update 
information.  In  a  file  system,  either  data  files  must  be  overwritten  with  new  data,  or  if 
new  files  are  added  with  each  update,  the  application  program  must  be  altered  for  each 
new  file.  A  pure  file  system  of  data  management  is  useful  only  for  a  test  system,  not 
for  a  "real  world"  system. 

Therefore,  the  kernel  of  an  information  display  system  should  be  a  data  base 
management  system  (DBMS).    This  requirement  also  applies  to  DSS's.    The  DBMS 
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reduces  the  amount  of  coding  and  design  that  the  developers  must  use  to  build  a  DSS. 
The  capabilities  of  the  overall  system  can  be  quickly  enhanced  without  the  design  and 
programming  complexities.  Some  of  the  desired  capabilities  would  be  a  sophisticated 
command  language,  documentation  utilities,  easy  data  loading  and  deletion  utilities, 
user  control,  and  security  utilities.  The  flexibility  of  the  DBMS  is  an  outgrowth  of  the 
degree  of  capabilities  it  possesses.  Developers  only  need  to  design  interfaces  to  the 
DBMS. 

1.  Data  Base  Design 

When  designing  an  information  system,  a  data  reference  is  critical.  The  most 
flexible  data  base  system  that  we  recommend  is  a  relational  data  base.  A  relational 
data  base  can  offer  several  advantages  as  demonstrated  in  the  microcomputer 
implementation.  A  variety  of  information  can  be  selected  and  compared  from  different 
tables.  Calculations  can  be  made  on  the  data  at  the  data  base  level,  allowing  for  fewer 
intermediate  programs  to  be  necessary  for  formatting  or  scaling  of  data. 

The  relational  data  base  we  used  on  the  microcomputer  was  Oracle.  Oracle 
offers  several  advantages  to  a  system.  First,  Oracle  is  available  for  mainframe 
computer,  minicomputer,  and  microcomputer  use.  This  means  that  a  user  who  may 
have  access  to  both  a  minicomputer  and  a  microcomputer  needs  to  learn  only  one  data 
base  system.  The  sharing  of  data  and  data  extraction  is  also  more  attractive  when  the 
data  base  systems  are  the  same.  Oracle's  command  language  is  easy  to  learn  by 
anyone  who  knows  a  programming  language.  In  fact,  Oracle's  command  language, 
SQL,  is  non-procedural  so  it  is  more  easily  learned  than  BASIC.  The  user  must  only 
understand  the  basic  constructs  of  SQL  and  the  logical  implementation  of  those 
constructs. 

Documentation  utilities  assist  the  user  in  the  development  of  the  data 
dictionary  for  the  particular  data  base  design.  With  them  the  user  can  obtain  the 
structure  of  the  tables  he  has  produced,  a  listing  of  the  various  tables  and  indices  he 
has  developed  (by  name,  structure  type,  and  filetype),  data  elements  (by  name,  type, 
source,  and  definition),  and  a  listing  of  the  data  structures  showing  the  particular 
elements  that  they  contain.  Oracle  only  provides  some  of  these.  For  the  sake  of 
clarity  we  created  the  tables  to  produce  these  definitions  for  our  system  in  the 
microcomputer  implementation. 

User  control  and  security  are  easily  implemented  through  Oracle.  Users  can 
create  views  and  determine  the  types  of  access  they  wish  to  assign  to  other  users  of 
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their  data.  Additionally,  the  data  base  administrator  or  the  user  acting  as  the  data 
base  administrator  can  determine  the  types  of  access  all  users  will  have  to  the  data 
base. 

2.  Longterm  Data  Base  Considerations 

With  the  need  of  a  historical  data  base  clearly  identified,  the  use  of  the 
microcomputer  alone  does  appear  to  be  feasible.  The  amount  of  data  and  overhead  of 
a  DBMS  on  a  microcomputer  would  be  prohibitive.  Therefore,  an  extraction  system  is 
necessary  for  the  minicomputer.  Once  a  data  base  is  established  on  the  minicomputer, 
the  microcomputer  can  extract  the  data  for  a  particular  cost  center  as  needed  or  a  user 
could  use  a  system  implemented  on  the  minicomputer. 
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VII.  CONCLUSIONS  AND  RECOMMENDATIONS 

A.       CONCLUSIONS 

The  methodology  we  followed  was  a  task  organized  approach.  We  felt  that  no 
one  approach  of  the  major  authorities  on  DSS  development  was  complete  in  and  of 
itself.  The  task  organized  approach  allowed  for  structured  documentation  tools  to  be 
used  with  an  iterative  approach. 

The  iterative  approach  was  central  to  our  methodology.  Design  and 
implementation  must  be  accomplished  in  quick,  as  short  as  possible  cycles,  in  this 
iterative  approach.  This  allows  the  developer  to  interact  with  the  user,  to  obtain  rapid 
feedback  on  the  progress  and  the  direction  of  the  project.  Communication  is  very 
important  to  a  DSS  project. 

Often  the  problem  definition  in  a  DSS  cannot  be  as  precise  as  in  a  MIS  project. 
The  semistructured  or  unstructured  nature  of  DSS  projects  can  make  a  clear  cut 
problem  definition  impossible.  By  approaching  a  problem  that  is  not  very  well  defined 
in  quick,  rapid,  iterative  steps,  the  problem  will  become  clearer  as  the  iterations 
progress. 

The  proper  environment  must  be  established  before  a  DSS  can  be  initiated. 
When  initiating  a  DSS,  minimization  of  risk  is  crucial.  If  an  initial  project  is  not 
successful,  it  may  be  a  long  time  before  subsequent  attempts  at  a  DSS  are  made,  even 
if  a  DSS  is  needed. 

In  order  to  minimize  risks,  a  champion  or  strong  enthusiast  must  be  found.  This 
is  a  person  who  can  envision  the  benefits  of  a  DSS.  If  there  is  no  proponent  of  the 
system,  or  it  is  forced  on  someone,  the  iterative  approach  will  not  be  effective.  User 
relations  is  of  paramount  importance  and  must  be  established  immediately.  Being 
prepared  and  not  bringing  any  surprises  is  the  best  way  to  keep  your  relations  in  good 
standing. 

Once  the  enthusiast  is  found,  a  decision  must  be  focused  upon.  The  DSS  should 
focus  on  one  decision  or  one  problem.  This  limits  the  scope  and  allows  the  developer 
to  narrow  in  on  one  area.  A  user,  upon  hearing  the  term  DSS,  may  get  visions  of  a 
system  that  will  answer  his  every  question  within  seconds.  By  focusing  on  one 
decision,  the  developer  can  guide  the  user  through  the  project  without  building  false 
hopes  or  misleading  expectations. 
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Within  our  methodology,  we  utilized  structured  techniques  during  the  analysis 
and  design.  These  techniques  included  the  use  of  data  flow  diagrams,  structure  charts, 
and  a  data  dictionary.  We  feel  that  these  are  among  the  best  documentation  tools 
available  today.  The  use  of  these  tools  reduce  maintenance  costs  later.  Further 
development  is  also  made  easier  with  the  structured  documentation.  This  is  especially 
true  when  the  original  developers  are  not  going  to  be  involved  in  any  further 
development. 

When  the  enthusiast  is  found,  the  decision  is  identified  and  the  structured  tools 
of  analysis  and  design  are  ready,  Sprague  and  Carlson's  ROMC  approach  further 
focuses  the  effort  [Ref.  2].  Representations  let  the  developer  focus  on  the  displays  the 
user  desires,  the  logical  design.  With  the  representations,  the  data  and  data  base  must 
be  investigated  and  documented.  The  data  base  is  the  keystone  of  the  DSS. 
Operations  should  follow  easily  with  the  representations.  The  manipulation  of  data 
and  displays  are  the  required  operations.  Memory  aids  remind  the  user  of  what  needs 
to  be  done  or  what  can  be  done.  The  controls  for  the  system  can  then  be  designed  to 
interface  the  parts  into  a  functioning,  useful  system. 

During  our  iterative  steps,  we  began  a  similar  development  on  a  completely 
different  system.  Although  this  is  not  recommended  for  every  DSS  development,  it 
helped  us  focus  on  problems  that  we  had  been  overlooking  in  the  initial  prototype.  By 
using  the  same  design  documented  with  structured  techniques,  we  were  able  to  quickly 
develop  the  similar  system  on  a  microcomputer.  This  gave  us  the  opportunity  to 
compare  the  systems.  This  comparison  helped  identify  some  problems  on  both  systems 
that  may  not  have  been  identified  until  later  in  the  project. 

B.       RECOMMENDATIONS 

Mare  Island  Naval  Shipyard  has  several  alternatives  available  to  them  at  this 
point.  We  recommend  that  the  data  base  for  the  minicomputer  be  implemented.  This 
will  allow  a  better  comparison  between  the  minicomputer  and  the  microcomputer. 
Since  the  documentation  is  available  from  the  microcomputer  implementation  and  the 
design  of  the  data  base  is  complete  and  can  be  used  with  any  relational  or  data  base 
that  is  logically  relational,  this  step  should  encompass  only  20  manhours,  fewer  if  the 
programmer  is  familiar  with  the  tools.  Next,  or  even  concurrently,  the  extraction  of 
the  data  from  SABRS  must  be  completed.  The  extraction  of  the  data  is  not  a  trivial 
problem,  although  technically  it  is  feasible.   The  extraction  is  necessary  to  eet  the  data 
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into  the  data  base  whether  it  is  on  the  minicomputer  or  the  microcomputer.  We 
estimate  the  data  extraction  from  SABRS  into  a  data  base  to  be  a  160  manhour  job. 
Our  estimate  is  based  on  our  work  with  this  project  and  not  on  any  previous  data 
extraction  experience. 

With  the  data  base  and  data  extraction,  data  integrity  and  accessibility  will  have 
to  be  defined.  Since  an  historical  data  base  is  desired,  the  data  base  should  not  be  able 
to  be  changed  by  the  normal  user.  This  can  be  accomplished  easily  in  a  data  base 
system  such  as  Oracle. 

Once  the  data  base  is  established  and  the  extraction  system  is  in  place,  several 
alternatives  must  be  decided  upon.  If  the  system  does  not  appear  to  be  feasible,  the 
project  can  be  stopped.  If  the  project  continues,  additional  cost  centers  can  be  added 
iteratively.  This  would  be  a  safe  course  to  follow.  In  that  case,  the  control  programs 
would  have  to  be  modified  to  include  the  new  cost  centers,  and  the  graphics  modules 
for  each  new  graph  would  need  to  be  written.  These  would  be  the  modules  that  are 
appended  onto  the  main  module  for  each  graph. 

The  feasibility  of  tying  CCA  in  with  SABRS  is  another  possibility.  SABRS  offers 
the  user  a  "what  if'  capability.  If  SABRS  could  be  integrated  with  the  graphics  of 
CCA,  a  more  powerful  DSS  would  result  at  a  minimal  cost.  The  difficulty  and 
compatibility  of  the  systems  should  be  determined  when  the  extraction  of  the  data  is 
accomplished. 

Whether  the  minicomputer  implementation  or  the  microcomputer 
implementation  is  better  is  another  question  that  must  be  answered.  A 
microcomputer  should  not  be  the  repository  for  a  large  historical  data  base.  However, 
a  microcomputer  could  be  used  as  the  workspace  for  the  decision  maker.  This  would 
allow  the  decision  maker  the  opportunity  to  change  his  data  as  he  wishes  without 
affecting  the  centralized  data  repository.  Microcomputers  allow  the  user  to  view  the 
graphics  at  his  desk,  where  the  minicomputer  CCA  would  require  a  graphics  terminal 
or  a  hard  copy  to  be  created  for  the  decision  maker. 

The  minicomputer  should  be  the  repository  for  an  historical  data  base.  This  will 
simplify  the  extraction  problem,  from  minicomputer  to  minicomputer.  The  graphics 
modules  on  the  minicomputer  are  easier  to  create  and  maintain,  and  a  sophisticated 
user  can  learn  TEL-A-GRAF  at  the  command  level,  creating  his  own  graphics.  This  is 
much  more  difficult  on  the  microcomputer.  The  graphics  on  the  microcomputer  are 
written  in  C  and  are  not  written  in  a  command  language  style  like  TEL-A-GRAF. 
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C.      SUMMARY 

The  best  way  to  approach  a  DSS  problem  is  with  a  DSS  methodology.  An 
iterative  approach  that  uses  the  tools  of  structured  analysis  and  design  provides  the 
developer  with  the  best  of  both  worlds.  The  necessary  documentation  for  a  project  is 
completed  and  the  short  cycles  of  the  iterative  approach  help  to  promote 
communications. 

Mare  Island  Naval  Shipyard  should  complete  the  data  base  implementation  and 
the  data  extraction  system.  Expanding  that  system  to  include  all  the  cost  centers, 
iteratively,  one  at  a  time,  is  a  minimal  risk  alternative.  Interfacing  CCA  directly  with 
SABRS  would  be  another  inexpensive  alternative.  Whether  the  networked 
minicomputers  or  the  microcomputers  are  most  desirable  to  a  decision  maker  is  still 
questionable.   Perhaps  it  should  be  left  to  the  individual  decision  maker  to  decide. 

Further  research  is  indicated  in  the  area  of  data  extraction.  The  usefulness  of  the 
microcomputers  in  the  offices  in  five  years  is  another  research  question  that  can  be 
investigated.  Finally,  the  direction  that  the  DSS  should  take  after  the  successful 
implementation  of  the  CCA  is  an  important  area  for  follow-on  research.  This  would 
include  an  overall  design  of  a  DSS  for  the  Shipyard. 
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APPENDIX  A 
STRUCTURED  SPECIFICATION 

1.  DATA  FLOW  DIAGRAM 

Data  flow  diagrams  show  the  "flow  of  data,  not  of  control."  The  symbols  used 
are  [Ref.  4:  p.  40]: 

1.  The  named  vector  (called  a  data  flow),  which  portrays  a  data  path. 

2.  The  bubble  (called  a  process),  which  portrays  transformation  of  data. 

3.  (Two  parallel  straight  lines)  which  portray  a  file  or  data  base. 

4.  The  box  (called  a  source  or  sink),  which  portravs  a  net  originator  or  receiver  of 
data  -  typically  a  person  or  an  organization  outside  the  domain  of  our  study. 

"The  Data  Flow  Diagram  is  documentation  of  a  situation  from  the  point  of  view  of  the 

data."    [Ref.  4:  p.  41]  It  will  provide  the  user  a  clear  understanding  of  the  present 

situation,  and  also  the  data  required  for  the  operation  of  the  system.    In  addition,  any 

errors  in  the  system  description  can  be  more  easily  identified  by  other  analysts. 

The  Data  Flow  Diagram  is  developed  hierarchically.    In  this  case  the  Top  Level 

diagram  is  in  Table  4,  the  First  Level  diagram  is  in  Table  5,  and  the  Second  Level 

diagram  of  Process  1.0,  of  the  First  Level,  is  in  Table  6 

2.  MINISPECIFICATION 

We  were  not  concerned  with  the  exact  details  of  how  the  users  accomplished  the 
processes  in  the  Data  Flow  Diagram.  The  primary  consideration  was  to  get  a  general 
idea  of  what  was  going  on,  model  it,  and  attempt  to  develop  a  system  that  would  assist 
them. 

1.1  Select  Data 

1.  Gather  Budget  Input  Reports  provided  by  the  Comptroller  Department. 

2.  Select  the  data  to  be  used  for  the  desired  report. 

1.2  Insertion  of  data 

1.  Input  the  selected  data  to  a  data  file. 

2.  The  extracted  data  is  used  to  prepare  the  desired  report. 
2.0  Prepare  Reports 

1.  Input  the  management  query 

2.  Identify  the  type  of  report  that  will  answer  the  query. 

3.  Determine  if: 
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TABLE  4 
TOP  LEVEL  DATA  FLOW  DIAGRAM 


Management 
Code  9110 


Budget  Request 
Inputs 


Management 
Query 


MEIO  Requirements 
and   Constraints 


Overhead 
Expense 
(Cost 
Class) 


Cost 

Center 

Analysis 


Query 
Response 


Buagel 
Report 
Information 


Extracted 
Database 


Budget  Constraints 


Comptroller 


*  Extracted  data  from  budget  input  reports  will  be  needed,  or 

*  Overhead  expenses  (cost  class),  or 

*  Actual  to  budget  comparison  will  support  the  report  selected. 

4.  Manipulate  and  format  the  input  data  as  requested  in  the  management  query. 

5.  Provide  query  response  to  management. 
3.0  Prepare  Budget 

1.  Identify  Comptroller  budget  constraints 

2.  Identify  MEIO  requirements  and  constraints. 
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TABLE  5 
FIRST  LEVEL  DATA  FLOW  DIAGRAM 


n 


Actual  to 

Budget 

Conparisorr 


-►^2.0 
Prepare 
Reports 


4.0 

Monitor 

3udget 

erformance 


E 


^. 


Extracted  Data 


£1 
si 


Overhead 
Expenses 
(Cost  Class) 


Code  9110 
ttenagement 


Budget  Request 
Inputs 


MEKD 
Requirements 
and   Constraints 


3.0 

Prepare 
Budget 


Budget 
Constraints 


Extracted 
Data  Base 


Extracted 
Data 

TTo 

Extract 
Data 


Budget 

Input 

Reports 


Budget 
Report 


SABRS 


Overhead 
Expenses 
(Cost  Class) 


Comptroller 
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TABLE  6 
SECOND  LEVEL  DATA  FLOW  DIAGRAM  OF  PROCESS  1.0 


Extracted 
*     Data 


1.2 
Insertion 
of  Data 
to  File 


Selected 


Data 


1.1 

Select 

Data 


Report 


Type 


a 

en 

«•« 

Q) 

w_ 

o>  tr 

o 

"o  2 

Q. 

=3    £ 

d) 

CQ  S 

QC 

Data  Processing 

3.  Request  and  identify  budget  request  inputs  within  MEIO. 

4.  Develop  MEIO  overhead  expenses  (cost  class). 

5.  Obtain  management  approval  for  the  budget. 

6.  Submit  to  the  Comptroller. 
4.0   Monitor  Budget  Performance 

1.  Analyze  extracted  data  from  SBR-22A  and  SBR-22B. 

2.  Determine  progress  and  errors,  if  any. 

3.  Report  to  management  if  requested. 

3.       DATA  DICTIONARY 

This  section  provides  a  rigorous  description  of  the  data  that  is  depicted  in  the 
Data  Flow  Diagram.    Before  the  completion  of  this  section  we  had  only  a  cursory 

understanding  of  the  data  involved.  The  disciplined  analysis,  which  involved  breaking 
larger  data  flows  into  data  elements,  brought  a  great  deal  of  clarity  to  our 
understanding  of  the  data. 

The  Data  Dictionary  is  organized  alphabetically  to  assist  the  reader  in  locating 
particular  documents  or  data  elements. 

ACQUISITION   OF   MINOR  PROPERTY  (68)  = 
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♦COST  OF  PURCHASED  OR 
MANUFACTURED  MINOR  PROPERTY, 
WHICH  IS  DEFINED  AS  THOSE  COSTING 
LESS  THAN  S1000  * 

ACTUAL  MATERIAL  AMOUNT  = 

*  TOTAL  DOLLAR  AMOUNT  OF  MATERIAL  COSTS 
INCURRED  TO  DATE  WITHIN  A  COST  FUNCTION  * 

ACTUAL  OT  HOURS  = 

*  OVERTIME  MANHOURS  CHARGED  TO 
DATE  WITHIN  A  COST  FUNCTION  * 

ACTUAL  OT  LABOR  AMOUNT  - 

*  TOTAL  DOLLAR  AMOUNT  OF  OVERTIME  LABOR 
CHARGED  TO  DATE  WITHIN  A  COST  FUNCTION  * 

ACTUAL  OT  M/P/D  = 

*  OVERTIME  MAN  PER  DAY  ACTUALLY  INCURRED  TO 

DATE  WITHIN  A  COST  FUNCTION  * 

ACTUAL  OTHER  = 

*  TOTAL  DOLLAR  AMOUNT  OF  OTHER 
INCURRED  TO  DATE  WITHIN  A  COST  FUNCTION  * 

ACTUAL  ST  HOURS  = 

*  STRAIGHT  TIME  MANHOURS  CHARGED  TO 
DATE  WITHIN  A  COST  FUNCTION  * 

ACTUAL  ST  LABOR  AMOUNT  = 

*  TOTAL  DOLLAR  AMOUNT  OF  STRAIGHT  TIME  LABOR 

CHARGED  TO  DATE  WITHIN  A  COST  FUNCTION  * 

ACTUAL  ST  M/P/D  = 

*  STRAIGHT  MAN  PER  DAY  ACTUALLY  INCURRED  TO 

DATE  WITHIN  A  COST  FUNCTION  * 

ACTUAL  TOTAL  AMOUNT  = 

*  TOTAL  DOLLAR  AMOUNT  INCURRED  FOR  A   COST 
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FUNCTION  * 

ADMINISTRATION  (9112)  = 

*  ALL  LABOR  AND  OTHER  COSTS  IDENTIFIABLE  TO  THE 
ADMINISTRATION  OF  THE  DATA  PROCESSING  OFFICE  AND 

OVERHEAD  COSTS  NOT  ASSIGNABLE  TO  OTHER 
FUNCTIONAL  SUBDIVISIONS  * 

AVE  OT  RATE  = 

*  AVERAGE  HOURLY  RATE  FOR  OVERTIME  (BASED 
ON  INDIVIDUAL  RATES)  * 

AVERAGE  BASE    = 

*  AVERAGE  HOURLY  RATE  ACCELERATED  BY  32-1/2%   TO 

ACCOUNT  FOR  BENEFITS  AND  LEAVE  * 

BUDGET  CONSTRAINTS  = 

*  CONSTRAINTS  SET  BY  THE  SHIPYARD  COMPTROLLER  (IE. 
ANNUAL  LEAVE  WILL  NOT  EXCEED  14%)  * 

BUDGET  REQUEST  INPUTS  = 

*  MANAGEMENT  REQUESTS  FOR  INCLUSION  OF  PARTICULAR 
ITEMS  WITHIN  THE  DEPARTMENTAL  BUDGET  * 

BUDGET  VS  ACTUAL  PERFORMANCE  REPORT  (SBR-22A)  = 

ISSUE  DATE  +  DATA  DATE  + 

{COST  CENTER}  +  {COST  FUNCTION} 

+  (COST  CLASS}  +  (ST  HOURS}  + 

{OT  HOURS}  +  {ST  M/P/D)  +  {OT 

M/P/D}  +  {ST  LABOR}  +  {OT  LABOR} 

+  {MATERIAL  AMOUNT}  +  {OTHER  AMOUNT} 

+    {TOTAL  AMOUNT}] 

BUDGETED   MATERIAL  AMOUNT    = 

*  TOTAL  DOLLAR  AMOUNT  OF   MATERIAL 
BUDGETED  TO  BE  INCURRED  FOR  THE 
FISCAL  YEAR  WITHIN  A  COST  FUNCTION  * 

BUDGETED  OT  HOURS    = 
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*  OVERTIME  MANHOURS  BUDGETED  FOR  THE  FISCAL 

YEAR  WITHIN  A  COST  FUNCTION  * 

BUDGETED  OT  LABOR  AMOUNT  = 

*  TOTAL  DOLLAR  AMOUNT  OF  OVERTIME  LABOR 
BUDGETED  FOR  THE  FISCAL  YEAR  TO  BE  INCURRED 

WITHIN  A  COST  FUNCTION  * 

BUDGETED  OT  M/P/D    - 

*  OVERTIME  MAN  PER  DAY  BUDGETED   FOR  THE 

FISCAL  YEAR  WITHIN  A  COST  FUNCTION  * 

BUDGETED  OTHER  = 

*  TOTAL  DOLLAR  AMOUNT  OF  OTHER 
BUDGETED  TO  BE  INCURRED  FOR  THE 

FISCAL  YEAR  WITHIN  A  COST  FUNCTION  * 

BUDGETED  ST  HOURS    = 

*  STRAIGHT  TIME  MANHOURS  BUDGETED  FOR  THE  FISCAL 
YEAR  WITHIN  A  COST  FUNCTION  * 

BUDGETED  ST  LABOR  AMOUNT  = 

*  TOTAL  DOLLAR  AMOUNT  OF  STRAIGHT  TIME  LABOR 
BUDGETED  FOR  THE  FISCAL  YEAR  TO  BE  INCURRED 

WITHIN  A  COST  FUNCTION  * 

BUDGETED  ST  M/P/D    = 

*  STRAIGHT  MAN  PER  DAY  BUDGETED   FOR  THE 

FISCAL  YEAR  WITHIN  A  COST  FUNCTION  • 

BUDGETED  TOTAL  AMOUNT  = 

*  TOTAL  DOLLAR  AMOUNT  BUDGETED  FOR  THE 

FISCAL  YEAR  FOR  A  COST  FUNCTION  * 

CATEGORY  TITLE  =  *  FUNCTION  COST  CLASS  * 

CONSUMEABLE  SUPPLIES  (12)  = 

*  MATERIAL   COSTS   OF  CONSUMEABLE. 
REUSABLE,  AND  MINOR  NON-CONSUMEABLE 


87 


SUPPLIES  AND  MATERIALS  NOT 
OTHERWISE  CHARGEABLE  TO  ANOTHER 
COST  CLASS,  OR  AS  DIRECT  MATERIAL 
TO  PRODUCTIVE  JOB  ORDERS  * 

CONSUMEABLE  SUPPLIES  AND   INSTALLATION  (97)  = 

*  COST  OF  CONSUMEABLE  SUPPLIES  RELATED  TO 
THE  ADP  FUNCTION;  ALSO  CHARGED  WITH  IN- 
HOUSE  COSTS  ASSOCIATED  WITH  THE 
INSTALLATION  OF  ADP  MINOR  PROPERTY  * 

CONTRACTUAL  SERVICES  (96)  = 

*  COSTS  OF  CONTRACTUAL  SERVICES  (FOR 
EXAMPLE,  TIME  SHARING  OR  DATA  ENTRY 
SUPPORT)  OTHER  THAN  THOSE  SERVICES 
SPECIFIED  AS  CHARGED  TO  COST  CLASSES 
94  AND  95  * 

CONTROL  AND   SCHEDULING  (9116)  = 

♦ALL  LABOR  AND  OTHER  COSTS 

IDENTIFIABLE  AS  OVERHEAD  OF  THE 

CONTROL  AND  SCHEDULING 

FUNCTION,  EXCEPT  FOR  COSTS 

IDENTIFIED  TO  COST  FUNCTION 

9119  * 

COST  CENTER  =  COST  CENTER  NUMBER  +  COST  CENTER  NAME 

COST  CENTER  NAME  = 

[DATA  PROCESSING  OFFICE/MANAGEMENT 
ENGINEERING  OFFICE] 

COST  CENTER  NUMBER  =  [9|l|l/4  0] 

COST  CLASS  (NUMBER)    = 

[SUPERVISION  GRADED  (02)|   NON-SUPERVISION 

GRADED  (03)|  SHOP  GENERAL  (04)|  MATERIAL 
(04)|  CONSUMEABLE  SUPPLIES  (12)  UNALLOCATED 
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(19)1  TRAVEL  (30)| 

DUPLICATING/MICROFICHE/ILLUSTRATORS  (33) 

TRAINING  (39)  ACQUISITION  OF  MINOR  PROPERTY 

(68)|  SUPERVISION  GRADED  (91)|  NON- 
SUPERVISION,  ANALYSIS  AND  PROGRAMMING  (92)| 
NON-SUPERVISION  GRADED,  OTHERS  (93)  RENTAL 
AND  COMMUNICATION  (94)|  MAINTENANCE  (95)1 
CONTRACTUAL  SERVICES  (96)  CONSUMEABLE  SUPPLIES 
AND  INSTALLATION  (97)|   MINOR  PROPERTY  (98)| 
TRAINING  (99)] 

COST  CLASS  NO.  =  *  COST  CLASS  NUMBER  * 

COST  FUNCTION  = 

[MIS  IMPROVEMENT  ADP  PROGRAMS  (91  ll){ 

ADMINISTRATION  (9112){  PROGRAMMING  (9113){ 

RENT  OF  EQUIPMENT  AND  INSTALLATION  COST  (9114){ 

OPERATIONS  (9115){  CONTROL  AND  SCHEDULING  (9116){ 

EDP  OPERATIONS  (9117)|  EAM  OPERATIONS  (91 1S)| 

NAVSHIPS  NSY  MIS  PROGRAM  (9119){  MANAGEMENT 

ENGINEERING  OFFICE  ADMINISTRATION  (9142){ 

MANAGEMENT  SYSTEM  SUPPORT  (9143){ 

QC/PRODUCTIVITY  (9144){] 

DATA  DATE  =  *  EFFECTIVE  DATE  OF  DATA  USED  FOR  THE  REPORT  * 

DEPARTMENTAL   SUMMARY   BY   COST   CLASS   AND    SHIPYARD   TOTAL 
(BUDGET  VS  ACTUAL)  - 

ISSUE  DATE  +  DATA  DATE  + 
{COST  CENTER}  +  (COST  CLASS}  + 
(ST  HOURS}  +  (OT  HOURS}  +  (ST  M/P/D) 
+  {OT  M/P/D}  +  (ST  LABOR}  +  [OT  LABOR} 
+  {MATERIAL  AMOUNT}  +  {OTHER  AMOUNT} 
+    {TOTAL  AMOUNT}] 

DUPLICATING/MICROFICHE/ILLUSTRATORS  (33)  = 

*  COST  OF  ALL  PURCHASED 
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printing,  reproduction  and 
duplicating  when  not  chargeable 
to       a       particular       customer       order       * 

eam  operations  (9118)  = 

*  all  labor  and  other  costs  identifiable 

as  overhead  of  the  eam  operations 

function,  except  for  costs  identified  to 

cost  function  9119  * 

edp  operations  (9117)  = 

*  all  labor  and  other  costs  identifiable 

as  overhead  of  the  edp  operations 

function,  except  for  costs  identified  to 

cost  function  9119  * 

funds  admin  (code  no.)  = 

*  code  of  funds  administrator  for 
management      engineering     and 
information  office  (014/016)  * 

input  data  = 

[cost  center/function  budget  vs  actual 

performance  report  (sb r-22a)|  departmental 

summary  by  cost  class  and  shipyard  total 

(budget  vs  actual)  (sbr-22b)] 

issue  date  =  *  date  report  was  submitted  to  user  * 

maintenance  (95)  =  *  maintenance  costs  of  adp  equipment  * 

management  engineering  office  (9142)  = 

*  all  labor  and  other 
costs  identified  as  overhead  of 

the  director  of  management 
engineering  office,  and  other 
costs  which  are  not  assignable  to 
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ANOTHER  FUNCTION  OF  THE  MEO  * 

MANAGEMENT  SYS  SUPPORT  (9143)  = 

*  ALL  LABOR  AND  OTHER  COSTS   FOR 
PERFORMING  THE  MEO  FUNCTION  * 

MANAGER  QUERY  = 

*  AD  HOC  QUERIES  CONCERNING  BUDGET  PREPARATION, 
CONTROL  AND  VARIANCE  ANALYSIS  * 

MATERIAL  (04)  =  *  SYNONYM  FOR  SHOP  GENERAL  * 

MATERIAL  AMOUNT   = 

[BUDGETED  MATERIAL  AMOUNT    +    ACTUAL   MATERIAL 

AMOUNT  +  PERCENTAGE  OF  MATERIAL  AMOUNT  + 

MATERIAL  VARIANCE] 

MATERIAL  VARIANCE  = 

*  ACTUAL  OT  LABOR  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  OT  LABOR  THAT  SHOULD  HAVE  BEEN 
EXPENDED  TO  DATE  (ACTUAL  MINUS  THE  PRODUCT 
OF  THE  PERCENT  OF  THE  PERIOD  ELAPSED  AND 

BUDGET)  * 

MEIO  REQUIREMENTS  AND  CONSTRAINTS  = 

*  CONSTRAINTS  SET  BY  THE  MEIO  MANAGEMENT  * 

MEN  GROSS  =  *  TOTAL  NUMBER  OF  PERSONNEL  * 

MEN   IVB    = 

*  COMPUTED  TOTAL  NUMBER  OF  PERSONNEL  MINUS 

THOSE  ON  LEAVE  * 

MEN  OTHER  =  *  PERSONNEL  BORROWED  BETWEEN  COST  CENTERS  * 
MEN  TOTAL  =  *  THE  TOTAL  OF  MEN  IVB  AND  MEN  OTHER  * 

MINOR  PROPERTY  (98)  = 

*  PURCHASED  COSTS  OF  ADP  MINOR  PROPERTY.  WHEN 

THAT  COST  IS  LESS  THAN  S1000  OR  THE  ITEM  HAS 
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A  USEFUL  LIFE  OF  TWO  YEARS  OR  LESS  REGARDLESS 

OF  COST  * 

NAVSHIPS  NSY  MIS  PROGRAM  (9119)  = 

*  ALL  LABOR  AND  OTHER  COSTS 
IDENTIFIABLE  TO  DEVELOPMENT 
AND  MAINTENANCE  OF  NAVSEA 
NAVSHIPYD  MIS  ASSIGNMENTS  * 

NON-SUPERVISION  GRADED  (03)    = 

*  INDIRECT  LABOR  COST  OF  NON- 
SUPERVISORY  GRADED  PERSONNEL  * 

NON-SUPERVISION,  ANALYSIS  AND  PROGRAMMING  (92)    = 

*  LABOR  COSTS   OF  PERSONNEL  WHILE 
ENGAGED  IN  ADP  ANALYSIS  AND  PROGRAMMING  * 

NON-SUPERVISION  GRADED,  OPERATIONS  (9115)  = 

*  ALL  LABOR  AND  OTHER  COSTS  IDENTIFIABLE   AS 
OVERHEAD  FOR  SUPERVISING  AND  ADMINISTERING 

THE  OPERATIONS  DIVISION,  EXCEPT  FOR  COST 
IDENTIFIED  TO  COST  FUNCTION  9119  * 

OT  HOURS  = 

[BUDGETED  OT  HOURS  +  ACTUAL  OT  HOURS  +  PERCENTAGE 
OF  OT  HOURS  +  OT  HOURS  VARIANCE] 

OT  HOURS  VARIANCE  = 

*  ACTUAL  OT  HOURS  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  OT  HOURS  THAT  SHOULD  HAVE  BEEN 

EXPENDED  TO  DATE  (ACTUAL  MINUS  THE  PRODUCT 

OF  THE  PERCENT  OF  THE  PERIOD  ELAPSED  AND 

BUDGET)  * 

OT  LABOR  AMOUNT    = 

[BUDGETED  OT  LABOR  AMOUNT  +  ACTUAL  OT  LABOR 
AMOUNT  +  PERCENTAGE  OF  OT  LABOR  AMOUNT  +  OT 

LABOR  VARIANCE] 
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OT  LABOR  VARIANCE  = 

*  ACTUAL  OT  LABOR  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  OT  LABOR  THAT  SHOULD  HAVE  BEEN  EXPENDED 
TO  DATE  (ACTUAL  MINUS  THE  PRODUCT  OF  THE  PERCENT 
OF  THE  PERIOD  ELAPSED  AND  BUDGET)    ■ 

OT  M/P/D  = 

[BUDGETED  OT  MAN  PER  DAY  +  ACTUAL  OT  MAN  PER 
DAY  +  PERCENTAGE  OF  OT  M/P/D  +  OT  M/P/D 

VARIANCE] 

OT  M/P/D  VARIANCE  = 

*  ACTUAL  OT  M/P/D  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  OT  M/P/D  THAT  SHOULD  HAVE  BEEN  EXPENDED 
TO  DATE  (ACTUAL  MINUS  THE  PRODUCT  OF  THE  PERCENT 

OF  THE  PERIOD  ELAPSED  AND  BUDGET) 

OTHER  COSTS  = 

*  OTHER  BUDGETED  COSTS  INCLUDING  PRIMARILY 

CONTRACTS  AND  TRAVEL  * 

OTHER  (PRIMARILY  CONTRACTS  AND  TRAVEL)  = 

[BUDGETED  OTHER   +    ACTUAL  OTHER  +  PERCENTAGE  OF 
OTHER  4-  OTHER  VARIANCE] 

OTHER  VARIANCE  = 

*  ACTUAL  OTHER  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  OTHER  THAT  SHOULD  HAVE  BEEN  EXPENDED 
TO  DATE  (ACTUAL  MINUS  THE  PRODUCT  OF  THE  PERCENT 
OF  THE  PERIOD  ELAPSED  AND  BUDGET) 

OTHERS   (OPERATIONS)  (93)  - 

*  LABOR  COSTS  OF  PERSONNEL  (OTHER 
THAN  THOSE  SPECIFIED  AS  CHARGED  TO 
COST  CLASS  91  AND  92)  WHOSE 
PRINCIPAL  DUTIES  ARE  DIRECTLY 
RELATED  TO  CONDUCTING  OR  SUPPORTING 
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THE  ADP  FUNCTION  * 

OVERHEAD  EXPENSES  BY  COST  CLASS  = 

[FUNDS  ADMIN  (CODE  NO.)  +    COST 
CENTER  NO.    +  STRAIGHT  TIME  WORKING 
HOURS  +  {COST  CLASS  NO.}  +  {CATEGORY 
TITLE}  +  (MEN  GROSS}  +  (MEN  IVB}  +  (MEN 
OTHER}  +  {MEN  TOTAL}  +  {STRAIGHT  HOURS} 
+  {AVERAGE  BASE}  +  {STRAIGHT  LABOR  SS}  + 
{OVT  MEN}  +  {OVT  HOURS}  +  {AVE  OT  RATE}  + 

{OVT  LABOR}  +  {TOTAL  MNDAY}  +  TOTAL 
HOURS}  +  (TOTAL  LABOR  SS}  +  TOTAL  MATER} 
+  {OTHER  COSTS}  +  {TOTAL  COST}  +  {TOT 
EXPEN}] 

OVT  HOURS  =  *  NUMBER  OF  OVERTIME  HOURS  * 

OVT  LABOR  = 

*  PRODUCT  OF  OVERTIME  HOURS  AND  AVERAGE 
OVERTIME  RATE  * 

OVT  MEN  =  *  PERSONNEL  ON  OVERTIME  (NOT  USED)  * 

PERCENTAGE  OF  MATERIAL  AMOUNT  = 

*  PERCENTAGE  OF  BUDGETED  MATERIAL 
AMOUNT  INCURRED  TO  DATE  WITHIN  A 
COST  FUNCTION  * 

PERCENTAGE  OF  OT  HOURS  = 

*  PERCENTAGE  OF  BUDGETED  TOTAL 
OVERTIME  TIME  MANHOURS  ACTUALLY  INCURRED  TO 

DATE  WITHIN  A  COST  FUNCTION  * 

PERCENTAGE  OF  OT  LABOR  AMOUNT  = 

*  PERCENTAGE  OF  BUDGETED   OVERTIME  LABOR 
AMOUNT  INCURRED  TO  DATE  * 

PERCENTAGE  OF  OTHER  = 

*  PERCENTAGE  OF  BUDGETED  OTHER 
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AMOUNT  INCURRED  TO  DATE  WITHIN  A 
COST  FUNCTION  * 

PERCENTAGE  OF  ST  HOURS  = 

*  PERCENTAGE  OF  BUDGETED  TOTAL  STRAIGHT 

TIME  MANHOURS  ACTUALLY  INCURRED  TO 
DATE  WITHIN  A  COST  FUNCTION  * 

PERCENTAGE  OF  ST  LABOR  AMOUNT  = 

*  PERCENTAGE  OF  BUDGETED  STRAIGHT  TIME  LABOR 
AMOUNT  INCURRED  TO  DATE  * 

PERCENTAGE  OF  TOTAL  AMOUNT  = 

♦PERCENTAGE  OF  BUDGETED  TOTAL 
DOLLAR  AMOUNT  INCURRED  TO  DATE 
WITHIN  A  COST  FUNCTION  * 

PROGRAMMING  (9113)  = 

*  ALL  LABOR  AND  OTHER  COSTS  IDENTIFIABLE  AS 
OVERHEAD  OF  THE  ANALYSIS  AND  PROGRAMMING 

DIVISION,  EXCEPT  FOR  COSTS  IDENTIFIED  TO 
COST  FUNCTION  9119* 

QC/PRODUCTIVITY  (9144)  = 

*  ALL  LABOR  AND  OTHER  COSTS  ASSOCIATED 
WITH  THE  PRODUCTIVITY  IMPROVEMENT  PROGRAM  * 

QUERY  RESPONSE  = 

*  BUDGET  ANALYST  RESPONSE  TO  AD  HOC  QUERIES* 

RENTAL  AND  COMMUNICATION  (94)  = 

♦ALLADP  EQUIPMENT   RENTALS, 
INCLUDING  RELATED  ANCILLARY 
COMMUNICATION  EQUIPMENT  RENTALS; 
ALSO  CHARGED  WITH  TELEPHONE 
COMMUNICATION  SERVICE  COSTS 
ASSOCIATED  WITH  UNIQUE  OR 
DEDICATED  LINES  USED  IN  SUPPORT 
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OF  THIS  EQUIPMENT  * 

RENT  OF  EQUIPMENT  AND  INSTALLATION  COST  (9114)  = 

*  ALL  COSTS  OF  ADP/EAM  RENTAL  AND  MAINTENANCE 
INCLUDING  THE  COST  OF  RENTING  TERMINALS 
EXCLUDING  MINICOMPUTERS  CHARGEABLE  TO 
BENEFITING  COST  CENTERS  AND  COST  CLASS  37  * 

SHOP  GENERAL  (04)  = 

*  INDIRECT  COSTS  OF  SUPPLIES  AND   LABOR  OF 
NON-SUPERVISORY  UNGRADED  PERSONNEL  WHILE 

ENGAGED  IN  WORK  OR  A  GENERAL  OVERHEAD 

NATURE  BUT  NOT  OTHERWISE  CHARGEABLE  TO 

ANOTHER  COST  CLASS  OR  AS  DIRECT  LABOR  * 

ST  HOURS  = 

[BUDGETED  ST  HOURS  +  ACTUAL  ST  HOURS  +  PERCENTAGE 
OF  ST  HOURS  +  ST  HOURS  VARIANCE] 

ST  HOURS  VARIANCE  - 

*  ACTUAL  ST  HOURS  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  ST  HOURS  THAT  SHOULD  HAVE  BEEN 

EXPENDED  TO  DATE  (ACTUAL  MINUS  THE  PRODUCT 
OF  THE  PERCENT  OF  THE  PERIOD  ELAPSED  AND 

BUDGET)  * 

ST  LABOR  AMOUNT    = 

[BUDGETED  ST  LABOR  AMOUNT  +  ACTUAL  ST  LABOR 
AMOUNT  +  PERCENTAGE  OF  ST  LABOR  AMOUNT  +  ST 

LABOR  VARIANCE] 

ST  LABOR  VARIANCE  = 

*  ACTUAL  ST  LABOR  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  ST  LABOR  THAT  SHOULD  HAVE  BEEN 

EXPENDED  TO  DATE  (ACTUAL  MINUS  THE  PRODUCT 
OF  THE  PERCENT  OF  THE  PERIOD  ELAPSED  AND 

BUDGET)  * 
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ST  M/P/D  = 

[BUDGETED  ST  MAN  PER  DAY  +  ACTUAL  ST  MAN  PER  DAY 
+■  PERCENTAGE  OF  ST  M/P/D  +  ST  M/P/D  VARIANCE] 

ST  M/P/D  VARIANCE  = 

*  ACTUAL  ST  M/P/D  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  ST  M/P/D  THAT  SHOULD  HAVE  BEEN  EXPENDED 
TO  DATE  (ACTUAL  MINUS  THE  PRODUCT  OF  THE  PERCENT 
OF  THE  PERIOD  ELAPSED  AND  BUDGET) 

STRAIGHT  HOURS  =  *  SYNONYM  FOR  STRAIGHT  TIME  WORKING 

HOURS  * 

STRAIGHT  LABOR  SS  = 

*  PRODUCT  OF  AVERAGE  BASE  AND  STRAIGHT  HOURS  * 

STRAIGHT  TIME  WORKING   HOURS  = 

*  LABOR  HOURS  WITH    LEAVE 

SUBTRACTED  (NUMBER  OF  HOURS  * 

2008   HOURS  AVAILABLE   IN  A  YEAR)  * 

SUPERVISION  GRADED  (02)  = 

*  INDIRECT  LABOR  COST  OF  GRADED 
SUPERVISORY  PERSONNEL  WHILE  ENGAGED  IN 
THE  SUPERVISION  OF  OTHERS  * 

SUPERVISION  GRADED  (91)  = 

*  LABOR  COST  OF  PERSONNEL  WHILE  ENGAGED 

IN  THE  SUPERVISION  AND  DIRECTION  OF 
PERSONNEL  PERFORMING  ADP  FUNCTIONS  * 

TOTAL  AMOUNT    = 

[BUDGETED  TOTAL  AMOUNT  +  ACTUAL   TOTAL   AMOUNT 

+  PERCENTAGE  OF 

TOTAL  AMOUNT  +  TOTAL 

VARIANCE] 

TOTAL  COSTS  = 

*  TOTAL  BUDGETED  COSTS  (SUM  OF  TOTAL  LABOR,  TOTAL 
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MATER,  AND  OTHER  COSTS  * 

TOTAL  HOURS  =  *SUM  OF  ST  HOURS  AND  OT  HOURS  * 

TOTAL  LABOR  SS  = 

*  DOLLAR  SUM  OF  THE  PRODUCT  OF  ST  HOURS  AND  AVE 
BASE  AND  THE  PRODUCT  OF  OT  HOURS  AND  AVE  OT  RATE  » 

TOTAL  MATER  =  *  TOTAL  BUDGETED  MATERIAL  COST  * 

TOTAL  MNDAY  =  *  TOTAL  PERSONNEL  (OVERTIME  AND  MEN)  * 

TOTAL  VARIANCE  = 

*  ACTUAL  TOTAL  MINUS  THE  AMOUNT  OF  THE 
BUDGETED  TOTAL  THAT  SHOULD  HAVE  BEEN  EXPENDED 
TO  DATE  (ACTUAL  MINUS  THE  PRODUCT  OF  THE  PERCENT 
OF  THE  PERIOD  ELAPSED  AND  BUDGET) 

TRAINING  (39)  = 

*  INDIRECT  EXPENSES  INCIDENT  TO  ORGANIZED 
TRAINING  PROGRAMS  EXCEPT  APPRENTICE  AND 
NUCLEAR  TRAINING  PROGRAMS  * 

TRAINING  (99)  = 

*  TRAINING  COSTS  IN  SUPPORT  OF  THE  ADP  FUNCTION  * 

TRAVEL  (30)  = 

*  COST  OF  APPROVED  TRAVEL,   INCLUDING   SUBSISTENCE, 
WHEN  NOT  CHARGEABLE  TO  A  PARTICULAR  CUSTOMER 
ORDER  OR  COST  CLASS  BY  TYPE  * 

UNALLOCATED  (CODING  REJECTS)  (19)  = 

*  COSTS  WHICH   CANNOT  BE 
IDENTIFIED  WITH  A  CUSTOMER 
ORDER  OR  AN  ESTABLISHED 
EXPENSE  ACCOUNT  * 
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4.        AUTOMATED  DATA  DICTIONARY 

a.  Method 

The  data  dictionary  is  automated,  although  it  is  not  an  integral  part  of  the 
Cost  Center  Analysis  system.  Instead  of  being  a  part  of  the  system,  it  explains  the 
various  parts  of  the  the  system.  This  data  dictionary  was  set  in  the  form  of  data  tables 
in  Oracle.  Although  some  of  this  information  can  be  generated  from  Oracle  system 
utilities,  it  was  felt  that  more  specific  information  was  necessary  for  this  system's 
documentation. 

b.  Data  Representation 

The  following  tables  represent  two  information  tables.  These  are 
representative  of  the  structure  shown  in  the  system  data  structure  diagrams  (Bachman 
diagrams).  Although  this  system  was  designed  for  personnel  who  are  intimately 
familiar  with  the  Cost  Center  terminology,  we  attempted  to  explain  as  much  as 
possible  data  meanings  and  abbreviations.  This  was  done  to  facilitate  the  work  of 
follow-on  designers  and  implementors. 

In  addition,  there  are  five  systems  description  tables  which  provide  the  data 
base  structure.  These  make  up  a  ready  reference  for  follow-on  implementors,  reducing 
the  chances  of  misunderstanding. 

c.  Data  Maintenance 

This  data  dictionary  has  been  designed  for  an  extracted  data  base.  It  would 
be  kept  current  by  biweekly  downloads  from  the  shipyard's  Prime  Network.  As  such 
the  system  would  grow  to  considerable  size  by  the  end  of  the  fiscal  year. 

These  system  updates  would  not  change  the  structure  of  the  data  dictionary  as 
depicted.   It  would  only  change  the  number  of  records  within  the  tables. 

d.  Data  Security 

Physical  security  controls  are  adequate  for  this  system.  Physical  internal 
controls  will  ensure  the  integrity  of  the  data  base.  These  controls  are  already  in  place 
within  the  office  workspaces. 

If  information  security  became  more  critical,  these  controls  could  be 
implemented  through  the  Oracle  DBMS,  by  using  passwords  and  controlling  access. 

e.  Back-up  and  Recovery 

This  is  provided  by  the  Oracle  DBMS  as  part  of  its  services  to  the  users. 
Oracle  uses  a  before  image  file  to  provide  the  recovery  information. 
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f.   Budget  Table  Structure 


UFI>  SELECT  *  FROM  COL  WHERE  TNAME  =    BUDGET' 


TNAME 


SCALE  NULLS 


BUDGET 


NOT  NULL 


BUDGET 


NOT  NULL 


BUDGET 

1  NULL 
BUDGET 

1  NULL 
BUDGET 

1  NULL 
BUDGET 

4  NULL 
BUDGET 

4  NULL 


COLNO     CNAME 
COLTYP  WIDTH 

1 
CHAR  4 

2 
CHAR  2 

3  ST 
NUMBER  7 

4  OT 
NUMBER  7 

5  ST 
NUMBER  7 

6  OT 
NUMBER  11 


COST  FUN  NO 


COST  CL  NO 


NUMBER 


11 


HOURS 


HOURS 


LABOR 


LABOR 


MATERIAL 
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BUDGET 


8 
NUMBER 


11 


4  NULL 


g.  Expense  Table  Structure 


UFI>  SELECT  *  FROM  COL  WHERE  TNAME  =    EXPENSE' 


OTHER 


TNAME 


SCALE  NULLS 


EXPENSE 


NOT  NULL 


EXPENSE 


NOT  NULL 


EXPENSE 


NOT  NULL 


EXPENSE 

1  NULL 
EXPENSE 

1  NULL 
EXPENSE 

4  NULL 


COLNO    CNAME 
COLTYPWIDTH  WIDTH 


1 


COST  FUN  NO 


CHAR  4 


CHAR  2 


DATE  8 

4  ST 
NUMBER  7 

5  OT 
NUMBER  7 

6  ST 
NUMBER  11 


COST  CL  NO 


DT 


HOURS 


HOURS 


LABOR 
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EXPENSE 

4  NULL 
EXPENSE 

4  NULL 
EXPENSE 

4  NULL 


7  OT 

NUMBER  11 


NUMBER 


NUMBER 


11 


11 


LABOR 


MATERIAL 


OTHER 


h.  System  Files 


/.   System  File  Listing  Structure 


UFI>  SELECT  *  FROM  COL  WHERE  TNAME  =    FILES' 


TNAME 

SCALE  NULLS 
FILES 

NULL 
FILES 

NULL 

FILES 

NULL 


COLNO    CNAME 
COLTYP  WIDTH 


1 


CHAR  15 


CHAR  8 


CHAR  8 


FILEID 


STRUCTYPE 


FILETYPE 
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FILES 


NULL 


FILES 


NULL 


FILES 


4 

LOCATION 

CHAR 

8 

5 

LASTMOD 

CHAR 

9 

6 

COMMENTS 

CHAR 

70 

NULL 


2.   System  File  Listing 

UFI>  SELECT  *  FROM  FILES; 

FILEID  STRUCTYP  FILETYPE  LOCATION  LASTMOD 

COMMENTS 

BUDGET  TABLE        DATA        D  DISK        ll-DEC-86 

CONTAINS  BUDGET  FOR  ST  HOURS,  OT  HOURS,  ST  LABOR,  OT  LABOR. 
MATERIAL  AND  OTHER 

EXPENSE  TABLE        DATA         D  DISK       ll-DEC-86 

CONTAINS  EXPENSES  FOR  HOURS,  LABOR,  MATERIAL  AND  OTHER  BY 
DATE 

BCF  INDEX        DATA         D  DISK       ll-DEC-86 

INDEX  BY  COST  FUNCTION  FOR  BUDGET  TABLE 

BCC  INDEX        DATA         D  DISK       ll-DEC-86 

INDEX  BY  COST  CLASS  FOR  BUDGET  TABLE 

ECF  INDEX        DATA         D  DISK       ll-DEC-86 

INDEX  BY  COST  FUNCTION  FOR  EXPENSE  TABLE 


ECC 


INDEX        DATA         D  DISK       ll-DEC-86 
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INDEX  BY  COST  CLASS  FOR  EXPENSE  TABLE 

i.    Programs  and  Modules 

/.    Programs  Listing  Structure 

UFI>  SELECT  *  FROM  COL  WHERE  TNAME  =    PROG'; 
TNAME 


SCALE  NULLS 


PROG 


NULL 


PROG 


NULL 


PROG 


NULL 


PROG 


NULL 


PROG 


NULL 


COLNO    CNAME 
COLTYPWIDTH 


1 


CHAR  14 


CHAR  35 

3 
CHAR  6 

4 
CHAR  9 


5 
CHAR 


70 


2.   Programs  and  Modules  of  the  System 


UFI>  SELECT  *  FROM  PROG; 


PROGID 


FULLID 


LANGUAGE 


LASTMOD 


COMMENTS 
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PROGID  FULLID 

COMMENTS 

CCA 


LANGUA    LASTMOD 


COST  CENTER  ANALYSIS 

C        ll-DEC-86 
MAIN  MODULE  CONTAINS  THE  THREE  MODULES  OF  THE  SYSTEM 


GRAPHICS 


GRAPHIC 


OF 


DISPLAY 
C        ll-DEC-86 
ALLOWS  USER  TO  USE  DEVELOPED  GRAPHS 

COMDLEV  COMMAND 

C        ll-DEC-86 
ALLOWS  USER  TO  USE  ORACLE  AT  THE  COMMAND  LEVEL 


DATA 


LEVEL 


CCI 


COST 


CENTER 
C        ll-DEC-86 
MAIN  MENU  DRIVEN  SHELL  FOR  ORACLE 


INFORMATION 


UFI 


ORACLE  UTILITY 


BUD  EXP 


USER 


FRIENDLY 
C        ll-DEC-86 


INTERFACE 


BUDGET 


EXPENSES 


VS 

C        ll-DEC-86 
DISPLAY  AND  COMPARISON  ON  BUDGET  AND  EXPENSE  INFORMATION 


INDVDISP  INDIVIDUAL 

C        ll-DEC-86 
BUDGET  VS  EXPENSES  BY  LABOR,  MATERIAL  OR  OTHER 

GETBUD  BUDGET 

C        ll-DEC-86 
DISPLAYS  BUDGET  BY  COST  FUNCTION/COST  CLASS 

TOBUDEXP  TOTAL  BUDGET  VS 


DISPLAY 


SUMMARY 


EXPENSE 


TOTAL  BUDGET 

C        ll-DEC-86 
SUMS  LABOR,  MATERIAL  AND  OTHER  FOR  BUDGET  AND  EXPENSES 
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GETLAB  DISPLAY  LABOR 

C        ll-DEC-86 
BUDGET  VS  EXPENSE  BY  COST  FUNCTION/COST  CLASS  FOR  LABOR 

COMMENTS 

GETHOUR  DISPLAY  HOURS 

C        ll-DEC-86 
BUDGET  VS  EXPENSE  BY  COST  FUNCTION/COST  CLASS  FOR  HOURS 

GETMAT  DISPLAY  MATERIAL 

C        ll-DEC-86 
BUDGET  VS  EXPENSE  BY  COST  FUNCTION/COST  CLASS  FOR  MATERIAL 

GETOTH  DISPLAY  OTHER 

C        ll-DEC-86 
BUDGET  VS  EXPENSE  BY  COST  FUNCTION/COST  CLASS  FOR  OTHER 

SELFUN  SELECT  FROM  EMPLOYEE 

ORACLE  ll-DEC-86 
SELECT  FROM  BUDGET  BY  COST  FUNCTION 

GETTOTF  TOTAL  BY  COST  FUNCTION 

C        ll-DEC-86 
SUMS  BUDGET  AND  EXPENSES  BY  COST  FUNCTION 

GETTOTC  TOTAL  BY  COST  CLASS 

C        ll-DEC-86 
SUMS  BUDGET  AND  EXPENSES  BY  COST  CLASS 

GETTOTFC  TOTAL         BY         COST         FUNCTION/COST         CLASS 

C    ll-DEC-86 
SUMS  BUDGET  AND  EXPENSES  BY  COST  FUNCTION/COST  CLASS 

GETSUM  TOTAL  BY  COST  CENTER 

C        ll-DEC-86 
SUMS  BUDGET  AND  EXPENSES  FOR  THE  ENTIRE  COST  CENTER 
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SELHOUR 


SELECT 


SELECT  HOURS  FROM  BUDGET  TABLE 


SELLAB 


SELECT 


FROM 
ORACLE  ll-DEC-86 

FROM 
ORACLE  ll-DEC-86 


BUDGET 


BUDGET 


SELECT  LABOR  FROM  BUDGET  TABLE 


SELMAT 


SELECT  FROM  MATERIAL 

ORACLE  ll-DEC-86 
SELECT  MATERIAL  FROM  BUDGET  TABLE 


SELOTH 


SELECT  FROM 

ORACLE  ll-DEC-86 


BUDGET 


SELECT  OTHER  FROM  BUDGET  TABLE 


SELEHOUR 


EXPENSE 


SELECT  FROM 

ORACLE  ll-DEC-86 
SELECT   HOURS    FROM    EXPENSE   TABLE    SELELAB  SELECT    FROM 

EXPENSE  ORACLE  ll-DEC-86 

SELECT  LABOR  FROM  EXPENSE  TABLE 


SELEMAT 


SELECT 


FROM 
ORACLE  ll-DEC-86 
SELECT  MATERIAL  FROM  EXPENSE  TABLE 


EXPENSE 


SELEOTH 


SELECT  FROM 

ORACLE  ll-DEC-86 


EXPENSE 


SELECT  OTHER  FROM  EXPENSE  TABLE 


SELBFUN 


SELECT 


FROM 
ORACLE  ll-DEC-86 
SELECT  FROM  BUDGET  BY  COST  FUNCTION  NO. 


BUDGET 


SELEFUN 


SELECT 


FROM 
ORACLE  ll-DEC-86 
SELECT  FROM  EXPENSE  BY  COST  FUNCTION  NO. 


EXPENSE 
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SELBCL 


SELECT 


FROM 
ORACLE  ll-DEC-86 


SELECT  FROM  BUDGET  BY  COST  CLASS 

SELECL  SELECT  FROM 

ORACLE  ll-DEC-86 
SELECT  FROM  EXPENSE  BY  COST  CLASS 


SELBCFCL 


SELECT 


FROM 
ORACLE  ll-DEC-86 
SELECT  FROM  BUDGET  BY  COST  FUNCTION/COST  CLASS 


SELECFCL 


SELECT 


FROM 
ORACLE  ll-DEC-86 
SELECT  FROM  EXPENSE  BY  COST  FUNCTION/COST  CLASS 


SELSUM 


SELECT 


SELECT  TOTAL  FROM  BUDGET 


SELSUMA 


SELECT 


FROM 
ORACLE  ll-DEC-86 

FROM 
ORACLE  ll-DEC-86 


SELECT  TOTAL  FROM  EXPENSE 


j.      Data  Elements 


/.    Data  Elements  Table  Structure 


UFI>  SELECT  *  FROM  COL  WHERE  TNAME  =    ELEMENTS'; 


TNAME 


SCALE  NULLS 


COLNO    CNAME 
COLTYP  WIDTH 


BUDGET 


EXPENSE 


BUDGET 


EXPENSE 


BUDGET 


EXPENSE 
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ELEMENTS 


NOT  NULL 


ELEMENTS 

NULL 
ELEMENTS 

NULL 
ELEMENTS 

NULL 
ELEMENTS 

NULL 
ELEMENTS 

NULL 


1 
CHAR  20 


CHAR  40 


CHAR  10 


CHAR  15 


CHAR       10 


CHAR  60 


ELEMENTID 


FULLID 


TYPE 


SOURCE 


UPDATEFREQ 


COMMENTS 


2.   Data  Elements  Listing 


UFI>  SELECT  *  FROM  ELEMENTS; 


ELEMENTID  FULLID 

UPDATEFREQ  COMMENTS 

COST_CL_NO  COST  CLASS  NUMBER 

SELDOM  SPECIFIES  COST  CLASS  BY  NUMBER 

COST_CL_NO  COST  CLASS  NUMBER 

SELDOM  SPECIFIES  COST  CLASS  BY  NUMBER 


TYPE         SOURCE 


CHAR  BUDGET 


CHAR  EXPENSE 
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COST_FUNC_NO  COST  FUNCTION  NUMBER 

SELDOM  SPECIFIES  COST  FUNCTION  BY  NUMBER 

COST_FUNC_NO         COST  FUNCTION  NUMBER 
SELDOM  SPECIFIES  COST  FUNCTION  BY  NUMBER 


CHAR  BUDGET 


CHAR  EXPENSE 


DT  EXPENSE     DATA     DATE  DATE     EXPENSE 

SEMIWEEKLY  SPECIFIES  THE  DATE  OF  THE  EXPENSE  DATA 

OTHOURS  BUDGETED  HOURS  OVERTIME  NUMBER  BUDGET 

SEMIWEEKLY  SPECIFIES  HOURS  BUDGETED  FOR  THE  COST  CENTER 


STHOURS  BUDGETED     HOURS     STRAIGHT    TIME  NUMBER 

BUDGET  SEMIWEEKLY  SPECIFIES  HOURS  BUDGETED  FOR  THE  COST 

CENTER 

OTHOURS  EXPENSED  HOURS  OVERTIME  NUMBER  EXPENSE 

SEMIWEEKLY  SPECIFIES  HOURS  EXPENSED  BY  THE  COST  CENTER 


STHOURS 
EXPENSE 
CENTER 

OTLABOR 

BUDGET 
CENTER 

STLABOR 

BUDGET 

CENTER 

OTLABOR 

EXPENSE 
CENTER 

STLABOR 
EXPENSE 
CENTER 


EXPENSED     HOURS     STRAIGHT     TIME  NUMBER 

SEMIWEEKLY  SPECIFIES  HOURS  EXPENSED  BY  THE  COST 

BUDGETED     LABOR     COSTS     OVERTIME       NUMBER 
SEMIWEEKLY  SPECIFIES  LABOR  BUDGETED  FOR  THE  COST 

BUDGETED    LABOR    COSTS    STRAIGHT    TIME    NUMBER 
SEMIWEEKLY  SPECIFIES  LABOR  BUDGETED  FOR  THE  COST 

EXPENSED     LABOR     COSTS     OVERTIME        NUMBER 
SEMIWEEKLY  SPECIFIES  LABOR  EXPENSED  FOR  THE  COST 

EXPENSED    LABOR    COSTS    STRAIGHT    TIME       NUMBER 
SEMIWEEKLY  SPECIFIES  LABOR  EXPENSED  FOR  THE  COST 
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MATERIAL  BUDGETED       MATERIAL      COSTS  NUMBER 

BUDGET  SEMIWEEKLY  SPECIFIES  MATERIAL  BUDGETED  FOR  THE 

COST  CENTER 

MATERIAL  EXPENSED       MATERIAL      COSTS  NUMBER 

EXPENSE  SEMIWEEKLY  SPECIFIES  MATERIAL  EXPENSED  FOR  THE 

COST  CENTER 

OTHER  BUDGETED    OTHER    COSTS  NUMBER    BUDGET 

SEMIWEEKLY  SPECIFIES  OTHER  BUDGETED  FOR  THE  COST  CENTER 

OTHER  EXPENSED    OTHER   COSTS  NUMBER    EXPENSE 

SEMIWEEKLY  SPECIFIES  OTHER  EXPENSED  FOR  THE  COST  CENTER 

k.     System  Element  Hierarchy 

/.   System  Elements  Hierarchy  Table  Structure 

UFI>  SELECT  *  FROM  COL  WHERE  TNAME  =    CONT; 


TNAME 

COLNO 

CNAME 

COLTYPE 

WIDTH 

SCALI 

NULLS 

CONT 

1 

ID1 

CHAR 

15 

NULL 

CONT 

2 

TYPE1 

CHAR 

10 

NULL 

CONT 

3 

ID2 

CHAR 

16 

NULL 

CONT 

4 

TYPE2 

CHAR 

10 

NULL 

2.  Systems  Elements  Hierarchy  Listing 
UFI>  SELECT  *  FROM  CONT; 


ID1 


TYPE1 


ID2 


TYPE2 
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EXPENSE 

TABLE 

COST_FUN_NO 

ELEMENT 

EXPENSE 

TABLE 

COST_CL_NO 

ELEMENT 

EXPENSE 

TABLE 

STHOURS 

ELEMENT 

EXPENSE 

TABLE 

STLABOR 

ELEMENT 

EXPENSE 

TABLE 

OTHOURS 

ELEMENT 

EXPENSE 

TABLE 

OTLABOR 

ELEMENT 

EXPENSE 

TABLE 

MATERIAL 

ELEMENT 

EXPENSE 

TABLE 

OTHER 

ELEMENT 

EXPENSE 

TABLE 

DT 

ELEMENT 

BUDGET 

TABLE 

COST_FUN_NO 

ELEMENT 

BUDGET 

TABLE 

COST_CL_NO 

ELEMENT 

BUDGET 

TABLE 

STHOURS 

ELEMENT 

BUDGET 

TABLE 

STLABOR 

ELEMENT 

BUDGET 

TABLE 

OTHOURS 

ELEMENT 

BUDGET 

TABLE 

OTLABOR 

ELEMENT 

BUDGET 

TABLE 

MATERIAL 

ELEMENT 

BUDGET 

TABLE 

OTHER 

ELEMENT 

3.  System  Process  Table  Structure 


UFI>  SELECT  *  FROM  COL  WHERE  TNAME  =  'PROCESS' 


TNAME 

COLNO 

CNAME 

COLTYP 

WIDTH 

SCALE  NULL 

PROCESS 

1 

20 

ID1 

NULL 

CHAR 

• 

PROCESS 

2 
10 

TYPEl 
NULL 

CHAR 

PROCESS 

3 
20 

ID2 

NULL 

CHAR 
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PROCESS 


4 
10 


TYPE2 
NULL 


CHAR 


4.   Process  Listing 


UFI>  SELECT  *  FROM  PROCESS; 


ID1 

CCA 

CCA 

CCA 

GRAPHICS 

GRAPHICS 

GRAPHICS 

GRAPHICS 

COMDLEV 

CCI 

CCI 

CCI 

BAR 

TRIPBAR 

PLOT 

PLOT 

COMBO 

COMBO 

COMBO 

UFI 

UFI 

UFI 

UFI 

UFI 

UFI 

UFI 


TYPE1 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 


ID2 

GRAPHICS 

COMDLEV 

CCI 

BAR 

TRIPBAR 

PLOT 

COMBO 

UFI 

BUD_EXP 

EMPINFO 

JOINFO 

GRAF 

GRAF 

BUD 

GRAF1 

GRAF 

GRAF1 

BUD 

EMPLOYEE 

JO_EMP 

JOB_ORD 

COST_FUNC 

COST_CLASS 

BUDGET 

EXPENSE 


TYPE2 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

TABLE 

TABLE 

TABLE 

TABLE 

TABLE 

TABLE 

TABLE 
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BUD_EXP 

BUD_EXP 

BUD_EXP 

INDVDISP 

INDVDISP 

INDVDISP 

INDVDISP 

GETBUD 

TOTBUDEXP 

TOTBUDEXP 

TOTBUDEXP 

TOTBUDEXP 

GETLAB 

GETLAB 

GETHOUR 

GETHOUR 

GETMAT 

GETMAT 

GETOTH 

GETOTH 

SELFUN 

GETTOTF 

GETTOTF 

GETTOTC 

GETTOTC 

GETTOTFC 

GETTOTFC 

GETSUM 

GETSUM 

SELHOUR 

SELLAB 

SELMAT 

SELOTH 

SELEHOUR 

SELELAB 


PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
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GETBUD 

INDVDISP 

TOTBUDEXP 

GETLAB 

GETMAT 

GETOTH 

GETHOUR 

SELFUN 

GETTOTF 

GETTOTC 

GETTOTCF 

GETSUM 

SELLAB 

SELELAB 

SELHOUR 

SELEHOUR 

SELMAT 

SELEMAT 

SELOTH 

SELEOTH 

BUDGET 

SELBFUN 

SELEFUN 

SELBCL 

SELECL 

SELBCFCL 

SELECFCL 

SELSUM 

SELSUMA 

BUDGET 

BUDGET 

BUDGET 

BUDGET 

EXPENSE 

EXPENSE 


PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

TABLE 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

PROGRAM 

TABLE 

TABLE 

TABLE 

TABLE 

TABLE 

TABLE 
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SELEMAT 

SELEOTH 

SELBFUN 

SELEFUN 

SELBCL 

SELECL 

SELBCFCL 

SELECFCL 

SELSUM 

SELSUMA 


PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 
PROGRAM 


EXPENSE 

EXPENSE 

BUDGET 

EXPENSE 

BUDGET 

EXPENSE 

BUDGET 

EXPENSE 

BUDGET 

EXPENSE 


TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 
TABLE 


5.        UFI  FILES 

UFI  files  can    be  used  to  create  tables  in  Oracle.    These  files  allow  the  user  to 
input  the  information  using  an  editor  rather  than  interactively  with  Oracle.   The  format 
that  Oracle  accepts  new  data  is  also  shown  with  the  INSERT  command.   Two  samples 
of  UFI  files  are  shown  below.   Neither  is  complete  as  it  stands.   Only  a  small  number 
of  records  that   need  to   be  read   into   the   tables   are   shown.     In  actuality,   every 
authorized  cost  function/cost  class  must  have  an  entry  for  both  budget  and  for  each 
date  of  expense  even  if  the  values  are  all  zeroes, 
a.  BUDGET.UFI 
SYSTEM/MANAGER 
SET  ECHO  OFF 
SET  VERIFY  OFF 
SET  TERMOUT  ON 
SET  SCAN  OFF 

CREATE  TABLE  BUDGET(COST_FUN_NO  CHAR(4)  NOT  NULL, 
COST_CL_NO  CHAR(2)  NOT  NULL, 
OTHOURS  NUMBER(7,1), 
STHOURS  NUMBER(7,1), 
OTLABOR  NUMBER(11,4), 
STLABORNUMBER(ll,4), 
MATERIAL  NUMBER(11,4), 
OTHER  NUMBER(  11,4)); 
SET  SCAN  ON 
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INSERT  INTO  BUDGET  VALUES('9112\  '02',  '0',      0\        0', 

'0',  '0',  '0'); 

INSERT  INTO  BUDGET  VALUES('91 12',  03',  '0',      0',       0', 

'0',  '0',  '0'); 

INSERT  INTO  BUDGET  VALUES('9112',  '04',  0',      '201',     0', 

'3152',  0',  '0'); 

INSERT  INTO  BUDGET  VALUES('9112',  '11',  0',       0',        0', 

'0',  '0',  '0'); 

INSERT  INTO  BUDGET  VALUES('9112',  '12',  0',      0',       0', 

'0',  '2000',  '4500'); 

INSERT  INTO  BUDGET  VALUES('9112',  '91',  '414',   '3000',   '1567', 
TOOOOO',        '0',  0);  INSERT  INTO  BUDGET  VALUES('9112',  '93',  '37', 

'1800'     '2000', 

'17540',         '0',  '0'); 

INSERT  INTO  BUDGET  VALUES('9119\  '43',  0',      0',       '0', 

'0',  '0',  '0'V, 

INSERT  INTO  BUDGET  VALUES('9U9',  '54',  0',      0',        0', 

'0',  '507340',  '0'); 

INSERT  INTO  BUDGET  VALUES('9119',  '68',  '0',      '0',       '0', 

'0',  '0',  '0'); 

COMMIT; 

CREATE  INDEX  BCF  ON  BUDGET(COST_FUN_NO); 
CREATE  INDEX  BCC  ON  BUDGET(COST_CL_NO); 

UPDATE  BUDGET  SET  LABOR  =  LABOR  /  1000,  MATERIAL  =  MATERIAL 
/  1000, 

OTHER  =  OTHER  /  1000; 
GRANT  SELECT  ON  BUDGET  TO  PUBLIC; 
EXIT 

b.  EXPENSE.UFI 
SYSTEM/MANAGER 
SET  ECHO  OFF 
SET  VERIFY  OFF 
SET  TERM  OUT  ON 
SET  SCAN  OFF 
CREATE  TABLE  EXPENSE(COST_FUN_NO  CHAR(4)  NOT  NULL, 
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COST_CL_NO  CHAR(2)  NOT  NULL, 
DT  DATE  NOT  NULL, 
OTHOURS  NUMBER(7,1), 
STHOURS  NUMBER(7,1), 
OTLABOR  NUMBER(11,4), 
STLABOR  NUMBER(11,4), 
MATERIAL  NUMBER(11,4), 
OTHER  NUMBER(1 1,4)); 
SET  SCAN  ON 
INSERT  INTO  EXPENSE  VALUES('9112',  02',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0'  0\       '0'); 

INSERT  INTO  EXPENSE  VALUES('9112\  03',  T7-OCT-86',  '        0', 

'0'  ,  '  0',  '  170',  '0',      '0'); 

INSERT  INTO  EXPENSE  VALUES('9112\  04',  T7-OCT-86',  '       10', 

'80'  ,  '  344',  '         2344',  '2006',     '16'); 

INSERT  INTO  EXPENSE  VALUES('9112',   11',  T7-OCT-86',  '        0', 

1','  0','  7',  '0',      '0'); 

INSERT  INTO  EXPENSE  VALUES('9112',   12',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '5725',     '929'); 

INSERT  INTO  EXPENSE  VALUES('9112',  '28',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9112\  '30',   17-OCT-86',  '        0', 

0'  ,  '  0',  '  0'.  '0',    '4522'); 

INSERT  INTO  EXPENSE  VALUES('91 12',  '33',  T7-OCT-86',  '        0', 
'        0'  ,  '  0',  '  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9112',  '39',  T7-OCT-86',  '        0\ 
'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9112\  '43',  T7-OCT-86',  '        0', 

0','  0','  0',  0', 

INSERT  INTO  EXPENSE  VALUES('9112',  '54',   17-OCT-86',  '        0', 

0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9112',  '68',  '17-OCT-86',  '        0', 
0','  0','  0',  0',     '0'); 
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INSERT  INTO  EXPENSE  VALUES('9112\  '91',  '17-OCT-86',  '       12', 

'      140,   '  500','         4089',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('91 12',  '93',  '17-OCT-86',  '        0', 

'       56'  ,  '  0',  '  593',  '0',    '0'); 

INSERT  INTO  EXPENSE  VALUES('9112\  '96',  T7-OCT-86',  ' .      0', 

0'  ,  '  0',  '  0',  '0',  '498752'); 

INSERT  INTO  EXPENSE  VALUES('9112\  '97',  '17-OCT-86',  '        0', 
'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9112\  '98',  '17-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '5235', 

INSERT  INTO  EXPENSE  VALUES('9112',  '99',  T7-OCT-86',  '        0', 

0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9113',  02',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  0',     0'); 

INSERT  INTO  EXPENSE  VALUES('9113\  03',  T7-OCT-86',  '        0', 

0','  0','  0',  0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9l  13',  04',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9113',   11',   17-OCT-86',  '        0', 
'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('91 13',  '12',  '17-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9113',  '23',  T7-OCT-S6',  '        0', 
'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9113',  '28',  T7-OCT-86',  '        0', 

0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9113',  '30',  '17-OCT-86',  '        0', 

0','  0','  0',  0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9U3',  '32',  '17-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9i  13',  '39',  T7-OCT-86',  '        6', 

10','  31','  100',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9113',  '43',  '17-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',     0'); 

INSERT  INTO  EXPENSE  VALUES('9l  13',  '54',  T7-OCT-86',  '        0', 
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0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9113',  '68',   17-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9U3\  '91',  '17-OCT-86',  '       67', 
'      500'  ,  '  400',  '        14026',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9113',  '92',  T7-OCT-86',  '      531', 
'     2000'  ,  '  1599',  '        43000',  0',  '-594'); 

INSERT  INTO  EXPENSE  VALUES('9113\  '93',   17-OCT-86',  '       64', 
'      800'  ,  '         2383',  '        10000',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9113',  '96',   17-OCT-86',  '        0', 
'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9113',  '99',   17-OCT-86',  '        0', 
'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9114',  '04',  '17-OCT-86',  '        0', 

0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9114',  '12',  '17-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9U4',  '28',  T7-OCT-86',  '        0', 
'        0','  0','  0',  '0',     0'); 

INSERT  INTO  EXPENSE  VALUES('9114',  '30',   17-OCT-86',  '        0', 

0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9114\  '32',  '17-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9114',  '33',   17-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9114',  '43',  T7-OCT-86',  '        0', 
'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9114',  '54',  '17-OCT-86',  '        0', 
'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9114',  '68',  T7-OCT-86',  '        0', 

0','  0','  0',  0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9I14',  '94',   17-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',     '4968'); 

INSERT  INTO  EXPENSE  VALUES('9114',  '95',  '17-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  0',   '246'); 
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INSERT  INTO  EXPENSE  VALUES('9114\  '98', 

0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9115\  02', 
'        0','  0','  0',  '0',    '0'); 

INSERT  INTO  EXPENSE  VALUES(  91 15',  03', 

0'  ,  '  0',  '  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('91 15',  '04', 
'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9115',  '11', 
'        0','  0','  0',  0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9115',   12', 

0'  ,  '  0',  '  0',  '0',    '0'); 

INSERT  INTO  EXPENSE  VALUES('9115',  '28', 

0'  ,  '  0',  '  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('91 15',  '30', 

0'  ,  '  0',  '  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9115',  '32', 

0'  ,  '  0',  '  0',  0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9115',  '33', 

0'  ,  '  0',  '  0',  '0',    '0'); 

INSERT  INTO  EXPENSE  VALUES('9U5',  '39', 

0'  ,  '  0',  '  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('91 15',  '43', 

0'  ,  '  0',  '  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9115\  '54', 

0'  ,  '  0',  '  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9115',  '68', 
'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9115\  '91', 
'      103'  ,  '  0',  '         2205',  0',     0); 

INSERT  INTO  EXPENSE  VALUES('91 15',  '93', 
'       90'  ,  '  50',  '  703',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('91 16',  02', 

0'  ,  '  0',  '  0',  0',     '0'); 
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INSERT  INTO  EXPENSE  VALUES('9116',  03',  T7-OCT-86',  '        0', 

'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9116\  04',  T7-OCT-86',  '        4', 

'       60'  ,  '  24',  '  900',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9116\  '11',  '17-OCT-86',  '        0', 

'        0','  0','  0',  0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9116\  '12',  T7-OCT-86',  '        0', 

'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9116',  '28',  T7-OCT-86',  '        0', 

'        0','  0','  0',  '0',    '0'); 

INSERT  INTO  EXPENSE  VALUES('91 16',  '30',  T7-OCT-86',  '        0', 

'        0','  0','  0',  0',    '0'); 

INSERT  INTO  EXPENSE  VALUES('9116',  '32',  T7-OCT-86',  '        0', 

0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9116',  '33',  T7-OCT-86',  '        0', 
'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9116',  '39',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',     0'); 

INSERT  INTO  EXPENSE  VALUES('9116',  '43',  T7-OCT-86',  '        0', 

0','  0','  0',  '0',     0); 

INSERT  INTO  EXPENSE  VALUES('9116',  '54',  '17-OCT-86',  '        0', 
'        0','  0','  0',  0',     0); 

INSERT  INTO  EXPENSE  VALUES('9ll6',  '68',  '17-OCT-86',  '        0', 
'        0','  0','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9116',  '91',  T7-OCT-86',  '        5', 
'       70'  ,  '  93',  '  1400',  '0',    0'); 

INSERT  INTO  EXPENSE  VALUES('91 16',  '93',  T7-OCT-86',  '      100', 
'     718','  473','        11000',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117',  02',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117',  '03',  T7-OCT-86',  '        0', 
'        0','  0','  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117',  04',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117',  '11',  T7-OCT-S6',  '        0', 
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OV  0','  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117\  '12',  T7-OCT-86',  '        0', 

0*  ,  '  0',  '  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117\  '23',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117\  '28',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117\  '30',  T7-OCT-86',  '        0', 

0'  ,  '  0', '  0',  0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117',  '32',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9ll7',  '33',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117',  '39',  T7-OCT-86',  '        0', 
'        0','  0','  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9I17',  '43',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117',  '54',  T7-OCT-86',  '        0', 
'        0','  0','  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('91 17',  '68',  T7-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117',  '91',  T7-OCT-86',  '       23', 
'      200'  ,  '  78',  '         3800',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('91 17',  '93',  T7-OCT-86',  '       61', 
'     1200'  ,  '  190',  '        16000',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117',  '95',  T7-OCT-86',  '        0', 

0','  0','  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117',  '96',  T7-OCT-86',  '        0', 

0','  0','  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117',  '97',  T7-OCT-86'.  '        0', 

0'  ,  '  0',  '  0',  '9654',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9117',  '99',  T7-OCT-86',  '        0', 
'        0','  0','  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALL'ES('91  IS',  02',  T7-OCT-86',  '        0', 
'        0','  0','  0',  0',   '0'); 
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INSERT  INTO  EXPENSE  VALUES('9112',  '02',  '31-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9112\  03',  '31-OCT-86',  '        0', 
'        0','  0','  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9112',  04',  '31-OCT-86',  '      181', 

0'  ,  '  4711',  '  0',  '2006',   '16'); 

INSERT  INTO  EXPENSE  VALUES('9112',   11',  '31-OCT-86',  '        6', 
'        0','  75','  0',  '0',     '0'); 

INSERT  INTO  EXPENSE  VALUES('9112',  '12',  '31-OCT-86',  '        0', 

0'  ,  '  0',  '  0',        '6280',      '929'); 

INSERT  INTO  EXPENSE  VALUES('9112',  '28',  '31-OCT-86',  '        0', 

0','  0','  0',  0',      '0'); 

INSERT  INTO  EXPENSE  VALUES('9il2',  '30',  '31-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  '0',      '5950'); 

INSERT  INTO  EXPENSE  VALUES('9112',  '33',  '31-OCT-86',  '        0', 
'        0','  0','  0',  0',      '0'); 

INSERT  INTO  EXPENSE  VALUES('9112',  '43',  '31-OCT-86',  '        0', 
'        0','  0','  0',  0',      '0'); 

INSERT  INTO  EXPENSE  VALUES('9119',  '43',  '31-OCT-86',  '        0', 
'        0','  0','  0',  '0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9119',  '54',  '31-OCT-86',  '        0', 
'        0','  0','  0',  0',   '0'); 

INSERT  INTO  EXPENSE  VALUES('9119',  '68',  '31-OCT-86',  '        0', 

0'  ,  '  0',  '  0',  0',   '0'); 

COMMIT; 

CREATE  INDEX  ECF  ON  EXPENSE(COST_FUN_NO); 
CREATE  INDEX  ECC  ON  EXPENSE(COST_CL_NO); 

UPDATE  EXPENSE  SET  LABOR  =  LABOR  /  1000,  MATERIAL  =  MATERIAL 
/  1000, 
OTHER  =  OTHER  /  1000; 
GRANT  SELECT  ON  EXPENSE  TO  PUBLIC; 
EXIT 
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APPENDIX  B 
COST  CENTER  ANALYSIS  USER  MANUAL  (MINICOMPUTER) 

1.  INTRODUCTION 

This  system  is  designed  to  allow  Cost  Center  managers  the  ability  to  track 
expenses  and  compare  them  to  budgeted  amounts.  In  that  way  users  can  gain  greater 
insight  into  costs  and  the  reasons  behind  them.  This  ability  should  give  managers  a 
much  clearer  appreciation  of  where  and  how  costs  are  being  produced. 

Graphic  display  of  some  of  the  numerical  output  is  provided  using  TEL-A- 
GRAF  business  graphic  system. 

2.  REQUIREMENTS 

Cost  Center  Analysis  (minicomputer)  is  designed  for  a  Prime  9755  computer  with 
on-line  capabilities.  The  software  is  written  in  CPL,  Prime's  Command  Processor 
Language,  and  the  TEL-A-GRAF  command  language.  The  software  requirements  are 
the  CCA  (minicomputer)  program,  TEL-A-GRAF,  and  the  PRIMOS  operating  system. 

3.  STARTING  THE  SYSTEM 

At  the  PRIMOS  command  prompt  (OK,  or  ER,)  type  <R  CCA>  (do  not  type 
the  less  than  ( < )  or  greater  than  ( > )  symbols)  to  activate  the  Cost  Center  Analysis 
program.  The  "R"  stands  for  RESUME.  RESUME  allows  the  user  to  interactively 
run  a  CPL  program.  The  operating  system  then  looks  for  a  "compiled  and  loaded 
program."  If  it  does  not  find  the  file,  it  will  then  look  for  the  appropriate  CPL  file. 
The  CPL  interpreter  will  then  act  on  the  program  CCA. CPL  and  issue  the  appropriate 
instructions  to  PRIMOS  [Ref.  14:  p.  1-  1-2]. 

The  program's  top  level  menu  should  then  display.  If  it  does  not,  check  to  see 
that  you  are  at  the  PRIMOS  command  prompt.  If  so,  follow  the  above  steps  to  load 
CCA.   Ensure  you  type  the  "R"  before  CCA. 

4.  MAIN  MENU 

With  this  version  you  are  allowed  two  options  (see  Figure  B.l).  In  future 
versions  more  options  may  be  added. 

At  the  "Select  One:"  prompt  you  may  respond  with  "T"  or  "Q"  to  identify  your 
desired  option  (see  figure  B.l).    The  system  will  validate  your  response,  so  the  select 
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T- 

TEL-A-GRAF  GRAPHICS  DISPLAY 

Q 

■  QUIT 

Select  One: 

Figure  B.l     CCA  Top  Level  Menu. 

prompt  will  reappear  if  anything  other  than  "T"  or  "Q"  are  entered.  If  you  enter  "Q" 
you  will  leave  CCA  and  be  returned  to  the  PRIMOS  level  at  the  command  prompt 
(OK,).  Option  "T"  will  select  the  TEL-A-GRAF  option,  allowing  you  to  produce 
various  graphs  from  standard  formatting  files.   CCA. 

After  the  system  validates  your  response  (T),  you  will  be  asked  if  you  wish  to  go 
directly  to  TEL-A-GRAF  (see  Figure  B.2). 

This  gives  you  the  option  of  entering  TEL-A-GRAF  immediately,  without 
selecting  one  of  the  standard  graphs  that  are  provided  the  user  through  CCA.  Entering 
TEL-A-GRAF  at  this  level  requires  you  to  know  the  command  language,  and  how  to 
format  your  data  and  include  files.  The  include  files  contain  the  programs  which  TEL- 
A-GRAF  uses  to  produce  the  graphs.  The  data  files  contain  the  formatted  data.  The 
novice  or  occasional  user  is  cautioned  to  use  the  graphic  formats  provided  by  CCA. 
The  structure  of  the  data  and  include  files  will  be  dealt  with  in  more  detail  below. 

If  you  do  not  wish  to  go  directly  to  TEL-A-GRAF,  select  "N"  or  "NO".  This 
query  will  only  accept  a  yes  or  no  response. 
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T  -  TEL-A-GRAF  GRAPHICS  DISPLAY 
Q-QUIT 


Select  One:  T 

Go  directly  to  TEL-A-GRAF? 


Figure  B.2     Prompt  for  the  user's  response. 

5.  CHOOSE  COST  CENTER  MENU 

This  menu  allows  the  user  to  select  the  particular  Cost  Center  he  wishes  to 
investigate  (see  figure  B.3).  In  this  version  only  one  Cost  Center  is  provided.  Future 
versions  could  easily  incorporate  more. 

At  the  "Select  One:"  prompt  enter  "I."  This  is  the  only  response  that  CCA  will 
validate.   An  inappropriate  response  will  cause  the  prompt  to  reappear. 

6.  GRAPH  PLOT  CODE  MENU 

This  menu  allows  the  user  to  select  the  type  of  standard  graph  he  desires  (see 
figure  B.4). 

Option  "A"  gives  the  user  the  opportunity  to  produce  a  plot  of  budget  to 
expenses.  Within  the  plot  a  bar  chart  of  the  budget  data  is  overlayed.  This  graph 
provides  the  capability  to  study  expense  to  budget  variances,  and  to  quickly  identify- 
how  closely  to  budget  the  Cost  Center  is  tracking. 

Option"B"  produces  a  bar  chart  of  the  expense  to  budget  data.  It  displays  that 
information  in  "time  elapsed."  This  allows  the  user  to  identify  variances  and  also  the 
budget  amount  that  should  be  expensed  at  the  particular  data  date. 
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CHOOSE  COST  CENTER 


1  -9110 


Select  One: 


Figure  B.3     Prompt  for  the  user's  response. 

Option  "C"  develops  a  composite  of  four  variance  graphs:  Percent  Expended, 
Data  Normalized  on  Percent  Elapsed  Time,  Variance  in  Dollars,  and  Percent  Variance. 
These  bar  charts  show  whether  the  particular  expenses  accrued  have  positive  or 
negative  variances  and  their  magnitudes. 

7.        PLOT  OPTIONS  MENU 

This  menu  allows  the  user  to  further  define  the  particular  graph  selected  (see 
figure  B.5). 

Option  "A"  causes  the  graph  produced  to  display  the  total  budget  and  expenses 
of  the  Cost  Center  selected.  Bar  Graphs  will  be  broken  down  by  Cost  Functions 
within  the  Cost  Center. 

Options  "2"  through  "9"  will  provide  the  data  by  particular  Cost  Function.  On 
the  bar  graphs  the  Cost  Functions  will  be  broken  down  by  Cost  Classes. 

All  expense  data  is  of  the  most  current  date  entered  into  the  updated  data  files. 
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PLOT  CODE: 


A  -  PLOT  OF  EXPENSE  TO  BUDGET  WITH 

BARCHART  OF  BUDGET  OVERLAYED  ON  THE  PLOT 

B  -  BARCHART  BY  COST  FUNCTION  OF  EXPENSE  TO 
BUDGET 

C  -  COMPOSITE  GRAPH  OF 


Select  One: 


Figure  B.4     Plot  Code  Selections. 

8.        ENTER  TEL-A-GRAF 

At  this  point  CCA  will  open  TEL-A-GRAF  and  issue  the  appropriate  commands 
to  produce  the  desired  graph.  The  commands  will  scroll  by  on  the  screen  and  then  you 
will  get  a  blank  screen.  In  a  few  seconds  the  selected  graph  will  be  drawn  on  the 
screen.  After  it  is  complete  you  may  study  the  graph.  To  continue  strike  the 
<ENTER>  or  <  RETURN  >  key.  You  will  be  returned  to  the  command  language 
level  of  TEL-A-GRAF.  You  may  continue  working  at  this  level,  if  you  know  the 
appropriate  commands.  To  return  to  CCA,  type  <QUIT.  >.  You  will  then  receive 
the  prompt  in  figure  B.6  Typing  "N"  or  "NO"  will  allow  you  to  produce  another  graph 
through  CCA.  Typing  "Y"  or  "YES"  will  return  you  to  the  PRIMOS  command 
prompt. 
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PLOT  OPTIONS: 


A  -  TOTAL 

2-  112 

3-  113 

4-  114 

5-  115 

6-  116 

7-  117 

8-  118 

9-  119 


Select  One: 


Figure  B.5     Plot  Option  Selections. 


Finished? 


Figure  B.6    Completion  Query. 

9.        USING  TEL-A-GRAF 

TEL-A-GRAF  is  a  very  powerful  graphics  system.   With  this  power  comes  many 
options  and  difFerent  ways  of  accomplishing  the  same  tasks.    We  shall  discuss  only  a 
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few  of  them  here.    The  TEL-A-GRAF  User  Manual  [Ref.  12],  will  answer  most 
questions  you  may  have  if  you  want  to  become  more  familiar  with  TEL-A-GRAF. 
a.  Making  Your  Own  Data  Files 

Many  methods  exist  for  entering  data  for  a  graph.  We  shall  talk  of  only  two 
methods.  The  first  is  creating  the  data  file  from  the  editor,  and  the  second  is  inputing 
the  data  while  in  TEL-A-GRAF.  All  data  must  be  inputed  in  millions  of  dollars  for  a 
Cost  Center.  For  example,  five  hundred  thousand  dollars,  S500,000.00  is  represented 
as  .5  and  one  million  dollars,  S  1,000,000.00,  is  represented  as  1.0.  When  data  is 
inputed  for  a  Cost  Function,  by  Cost  Class,  it  must  be  in  thousands  of  dollars. 
Variance  data  is  in  Dollars  or  decimal  representation  for  percentages. 


INPUT  DATA. 

"BUDGET" 

1  0.77287  2  2.13234  3  4.33018  4  0.053063  5  0.274093  6  1.48263  7  -- 

0.0898  S  0.507 

"BUDGET%" 

1  0.60284  2  1.66322  3 

3.37754  4  0.04139  5  0.21379  6  1.15645  7  -- 

0.07005  8  0.39546 

"EXPENSES" 

1  0.69411  2  1.3034  3  3 

.31009  4  0.04487  5  0.21733  6  1.10264  7  -- 

0.0665  8  0.17234 

END  OF  DATA. 

**FILE** 

Figure  B.7    TEL-A-GRAF  Data  File  for  Triple  Bar  Chart. 

/.    Creating  a  Data  File  From  the  Editor. 

Creating  data  files  from  the  editor  offers  several  advantages  to  entering  the 
data  interactively  with  TEL-A-GRAF.  First,  by  entering  the  data  in  the  editor  mode, 
you  can  check  the  data  for  errors  that  may  have  occurred  when  entering  the  data. 
Secondly,  if  several  different  sets  of  data  are  to  be  graphed  prepositioning  the  data  in 
files  will  shorten  the  amount  of  time  you  will  need  to  be  at  the  graphics  terminal. 
Lastly,  if  the  data  will  be  used  later,  you  will  not  have  to  input  it  again. 

This  is  not  a  tutorial  on  how  to  use  the  editor.  For  information  on  the 
editors  available  and  how  to  use  them  see  the  Prime  Computer  Training  Manual 
[Ref.  15] 
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Figure  B.7  is  an  example  of  a  typical  data  file.  This  particular  data  was 
used  with  the  Triple  Bar  chart.  However,  the  format  is  the  same  for  all  graphs.  The 
first  line  must  be  INPUT  DATA.  The  period  at  the  end  of  the  line  is  very  important 
so  do  not  forget  it.  The  next  line  should  be  the  name  of  the  data.  This  name  will 
appear  in  any  legend  that  you  may  want  to  produce.  Next  comes  the  actual  data.  The 
data  must  be  in  X,  Y  pairs,  the  independent  followed  by  the  dependent.  The  comma 
between  the  x,y  is  optional,  a  space  will  do.  The  data  may  also  be  written  in  column 
form  which  makes  changes  and  error  checking  much  easier.  In  the  include  files  we 
shall  discuss,  all  dependent  values  are  0  at  the  origin,  followed  by  1,2,  3,  4,  etc.  The 
label  for  each  however,  is  not  1,  2,  ,3  etc.  The  labels  have  been  given  other  names  such 
as  the  Cost  Functions  9112,  9113,  etc.  The  corresponding  position  is  the  number  that 
must  be  in  the  data  file,  not  the  label. 

If  more  than  one  set  of  data  is  to  be  graphed  on  that  graph,  the  remaining 
data  can  be  entered  in  the  same  way.  When  all  data  is  entered,  the  last  statement  must 
be  END  OF  DATA.  The  last  statement  shown  in  figure  B.7  is  the  end  of  file  symbol 
for  TEL-A-GRAF.  This  is  optional  for  the  user  to  put  in  because  TEL-A-GRAF  will 
automatically  write  it  in  the  file  after  it  is  done. 

Without  the  data  base  implemented  you  may  think  that  this  system  is 
useless.  You  can,  however,  enter  your  own  data  into  the  appropriate  file  to  use  one  of 
the  graphs  shown.  Figure  B.8  shows  which  data  goes  with  which  graphs.  By  entering 
the  updated  information  in  the  appropriate  data  file  in  the  appropriate  format,  the 
CCA  menu  system  can  be  used  with  no  knowledge  of  TEL-A-GRAF.  Only  knowing 
how  to  build  a  data  file  is  required. 


Data  File         Graph 

Bl  10  Budget  Bar  Graph  in  corner  of  composite  graph 

BBE110  Triple  Bar  Graph 

BE1 10  Plot  of  budeet  vs  expenses 

PB110  Percent  Expended  Bar  Graph  for  variance  analysis 

NB110  Data  Normalized  on  Precent  Elapsed  Time 

VB110  Variance  in  Dollars 

PV110  Percent  Variance 


Figure  B.8    Name  of  Data  Files  Matched  With  the  Appropriate  Graphs. 
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The  name  of  the  data  file  consists  of  two  parts,  letters  followed  by 
numbers.  The  letters  may  represent  on  of  two  things.  In  the  composite  graph,  the  bar 
graph  of  the  budget  is  linked  with  the  data  file  Bl  10.  No  matter  which  Cost  Function 
you  select  for  the  plot  in  the  menu,  the  budget  for  the  Cost  Center  broken  down  by 
Cost  Function  is  displayed  in  the  corner.  All  other  graphs  are  linked  as  shown  is  figure 
B.8  .  When  graphing  a  Cost  Function  instead  of  the  cost  center,  the  data  file's 
numbers  are  the  Cost  Function  number,  with  the  exception  of  the  bl  10  series,  which 
always  references  bl  10.  For  example,  the  data  file  linked  to  the  triple  bar  graph  for 
Cost  Function  9112  is  BBE112,  for  Cost  Function  9113  is  BBE113,  and  so  on.  This 
convention  holds  for  all  classes  of  data  file  names. 

2.   Entering  Data  From  Within  TEL-A-GRAF 

This  process  is  more  complicated  than  using  the  editor,  and  has  a  greater 
potential  for  errors  getting  by.  A  knowledge  of  TEL-A-GRAF  is  necessary  in  order  to 
use  this  method.  Either  your  own  commands  must  be  issued  or,  the  files  already 
created  can  be  included.  Data  is  entered  the  same  way  as  it  is  in  figure  B.7  ,  and  as 
explained  in  the  previous  section. 

Since  a  knowledge  of  TEL-A-GRAF  is  necessary,  this  procedure  assumes  a 
more  sophisticated  user.    Modifying  the  existing  graphs  to  suit  your  own  needs  and 
using  different  data  may  be  a  useful  technique  for  learning  TEL-A-GRAF. 
b.  TEL-A-GRAF  Commands 

This  section  is  designed  to  show  you  how  to  manipulate  existing  files  that 
TEL-A-GRAF  uses.  It  is  not  designed  to  show  you  how  to  write  original  TEL-A- 
GRAF  programs.  Figure  B.9  list  the  names  of  the  programs  and  their  relation  with 
other  modules. 

The  main  module  for  each  graph  contains  the  commands  to  generate  a  graph 
from  Cost  Center  9110.  The  related  graphs  modify  this  basic  graph  to  get  the 
appropriate  labels  and  titles. 

/.    Using  Existing  Files 
'Existing  files  are  brought  in  to  TEL-A-GRAF  through  the  use  of  the 
INCLUDE  command.    The  include  command  brings  in  a  file  which  is  then  processed. 
If  more  than  one  file  is  brought  in,  the  first  is  processed,  and  changes  or  additions  to 
that  file  are  made  when  the  next  include  file  is  processed. 

An  example  of  a  possible  command  level  interaction  follows.  Suppose  you 
have  created  a  data  file  named  'BBE112'  for  a  triple  bar  graph  of  Cost  Function  9112 
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Graph 

Module 

Related  Modules 

Bar  graph  of  Budeet 
Plot  of  Budget  vs"Expense 

Bl 

none 

EX2 

EX112,  EX113,  EX114,  EX115 

EX116.  EX117,  EX118.  EXU9 

Triple  bar  graph 

B4 

Bl  12,  Bl  13,  Bl  14,  Bl  15, 
Bl  16,  B117,  Bl  18,  Bl  19 

Percent  Expended 
Normalized  on  Time 

PERBAR 

none 

NORBAR 

none 

Variance  in  Dollars 

VARBAR 

none 

Percent  Variance 

PERVAR 

none 

Figure  B.9    Graphic  Program  Module  Relations. 

broken  down  by  Cost  Class.    The  data  file  must  contain  a  value  for  each  authorized 
Cost  Class,  whether  it  has  been  used  of  not. 

The  first  prompt  from  TEL-A-GRAF  is  SPECIFY  FILES.  <  RETURN  > 
is  the  appropriate  response.  Next  you  need  to  specify  the  data  file.  Next  you  must 
include  the  first  include  file.  This  is  the  main  module  for  the  graph.  For  this  example 
it  is  'B4'.  Next  you  must  specify  the  second  include  file  to  set  the  appropriate  headings 
and  labels.  In  this  example  that  file  is  Bl  12.  Figure  B.10  demonstrates  the  proper 
sequence  for  this  example. 


SPECIFY  FILES:      <  RETURN  > 
GENERATE  LEVEL-ENTER: 

<  DATAFILE  IS 'BBE112'.  > 
GENERATE  LEVEL-ENTER: 

<  INCLUDE  B4\  > 

INCLUDE  FILE  BEING  PROCESSED 
ENTER  MORE  OR  PERIOD: 

<  INCLUDE  Bl  12. > 
ENTER  MORE  OR  PERIOD: 

<  GO.  > 


Fisure  B.10    Interactive  Session  with  TEL-A-GRAF. 
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2.  Appending  Existing  Files 

If  you  went  through  the  process  of  figure  B.9  ,  but  you  were  not  satisfied, 
you  can  make  changes  from  inside  TEL-A-GRAF.  First  you  must  type 
"CONTINUE."  This  allows  you  to  continue  with  the  same  graph.  Now  you  can 
change  the  data,  the  title,  or  anything  else  you  wish.  You  can  change  the  data  file 
either  by  specifying  another  data  file  as  before,  or  by  inputing  the  data  by  hand  as 
described  in  the  data  section.  Changes  in  the  title  can  be  made  by  issuing  commands 
such  as  "TITLE  IS  BUDGET  VS  EXPENSES  FOR  COST  FUNCTION  9112'."  This 
will  change  the  title  to  whatever  you  write. 

For  the  user  who  wants  to  use  TEL-A-GRAF  at  this  level,  further 
information  is  available  in  the  user  manual  [Ref.  12]. 
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APPENDIX  C 
COST  CENTER  ANALYSIS  USER  MANUAL  (MICROCOMPUTER) 

1.  INTRODUCTION 

This  system  is  designed  to  allow  Cost  Center  managers  the  ability  to  track, 
expenses  and  compare  them  to  budgeted  amounts.  Additionally,  the  user  can  identify 
the  jobs  that  have  accrued  these  expenses.  In  that  way  users  can  gain  greater  insight 
into  those  costs  and  the  reasons  behind  them.  This  ability  should  give  managers  a 
much  clearer  appreciation  of  where  and  how  costs  are  being  produced. 

In  addition  to  the  query  screen  responses,  the  user  can  receive  hardcopy 
responses.  Graphical  display  of  some  of  the  numerical  output  is  also  provided  using 
the  systems  graphic  utilities. 

2.  REQUIREMENTS 

Cost  Center  Analysis  hardware  requirements  are  an  IBM  PC/XT/AT  with  at 
least  640K  and  a  hard  disk.  A  printer  is  optional  for  the  output  print  options.  The 
software  requirements  are  the  Oracle  Data  Base  Management  System  (DBMS), 
PC  MS-DOS,  and  the  Cost  Center  Analysis  and  Graphic  Utilities  programs,  all 
installed  on  the  hard  disk.  In  order  to  support  CCA  and  the  graphics  utilities  the 
following  utilities  are  required  as  well: 

The  CUL  library  from  Essential  Software  Incorporated.4 

Graphic  from  Scientific  Endeavours. 

3.  STARTING  THE  SYSTEM 

The  first  step  to  begin  the  CCA  program  is  to  turn  the  computer  on.  This  is 
done  by  turning  the  switch  on  the  power  board.  At  the  DOS  command  line  type 
"Oracle"  to  activate  the  Oracle  DBMS.  This  system  is  essential  to  the  operation  of 
Cost  Center  Analysis.  Version  1.0  will  not  call  Oracle  first,  due  to  the  memory 
requirements.  It  is  hoped  in  later  versions  that  this  service  will  be  provided  for  the 
user. 


4C  Utilities  Library  User  Guide  {Version  2.0)  ESI,  Maplewood,  NJ  07040,  1985. 

Rome.    James    A.    and    Georse    G.    Kellev.    Graphic    Version    2.1,    Scientific 
Endeavours,  Rte.  4,  Box  79,  Kingston"  TN  37763,  1985. 
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Once  Oracle  has  displayed  its  logo  and  licensing  information,  type  "CCA"  to  load 
the  Cost  Center  Analysis  system.   This  places  the  user  at  the  main  menu. 

4.       MAIN  MENU 


COST  CENTER  ANALYSIS 

1.  Cost  Center  Information 

2.  Cost  Center  Information  Using 

Oracle  Command  Language  (SQL)  for  Ad  hoc 
Queries,  Inserts,  Deletes  and  Updates 


Selection: 

A  blank  line  exits  to  DOS 


Figure  C.l     Cost  Center  Analysis  Main  Menu. 

At  this  point  you  are  provided  two  options  (see  Figure  C.l).  If  you  select  option 
"1,"  you  will  be  provided  menus  with  preformatted  queries.  Using  these  menus 
simplifies  the  task  of  accessing  Oracle. 

At  times  the  menus  may  be  too  limiting  or  not  ask  the  right  questions;  therefore, 
option  "2"  allows  you  to  use  Oracle  more  directly  through  the  Oracle  User  Friendly 
Interface  (UFI).  To  use  the  UFI,  you  need  to  understand  the  Oracle  command 
language  to  some  degree.  In  the  last  section  of  this  appendix  we  show  examples  of 
how  to  use  the  command  language  to  develop  your  own  ad  hoc  queries,  make 
insertions,  deletions  or  drop  tables. 

After  exiting  option  "2,"  you  will  be  returned  to  the  A>  prompt  of  DOS.  If  you 
wish  to  reenter  the  system,  it  is  not  necessary  to  rerun  Oracle.  You  will  have  to  re- 
enter "CCA"  to  return  to  the  top  menu  of  the  Cost  Center  Analysis  system. 

In  all  menus,  when  entering  options  the  system  will  not  accept  an  inappropriate 
response.  Inappropriate  values  will  cycle  the  user  back  to  the  menu  he  just  tried  to 
query  from.  The  system  also  requires  you  to  verify  your  responses.  If  you  wish  to 
change  your  answer,  enter  "N",  or  "n"  to  the  question  "Is  this  correct?".  The  system 
will  blank  your  response  and  you  can  enter  your  change. 
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A  blank  line  or  a  0  will  allow  you  to  exit  the  present  menu  and  return  to  the 
menu  directly  "above"  it. 

Note:  General  instructions  for  menus  will  not  be  repeated  under  each 
explanation  unless  they  differ  from  the  norm. 

5.        INFORMATION  AVAILABLE 


INFORMATION  AVAILABLE 

1.  Budget  VS  Expenses 

2.  Job  Order  Information 


Selection: 

A  blank  line  exits 


Figure  C.2     Information  Available  Menu. 

This  menu  (see  Figure  C.2)  identifies  the  classes  of  information  that  are  available 
to  you. 

Option  "1"  will  introduce  you  to  the  numerical  and  computational  information 
available.  This  is  the  budget  and  expense  information  provided  in  various  formats  and 
aggregations. 

Option  "2"  directly  addresses  the  Job  Order  information.  It  will  show  job  orders 
to  budget  and  cost  information. 

6.        BUDGET  VS  EXPENSES 

This  menu  allows  the  user  to  analyze  budget  vs  expenses  under  various 
aggregations  (see  Figure  C.3). 

Option  "1"  provides  the  user  with  Total  Budget  vs  Expenses  information  by  Cost 
Function,  Cost  Class,  Cost  Function  and  Cost  Class,  or  Cost  Center. 

Option  "2"  allows  the  user  to  closely  compare  budgeted  figures  to  actual  expense 
figures  by  either  Labor,  Material  or  Other. 
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BUDGET  VS  EXPENSES 

1.     Total  Budget  VS  Expenses  to  Date 

2.   Labor  or  Material  or  Other 

3.   Budget  by  Cost  Func/Cost  Class 

Selection: 

A  blank  line  exits 

Figure  C.3    Budget  vs  Expenses  Menu. 

Option  "3"  gives  the  user  the  budget  by  Cost  Function  and  Cost  Class  as  it 
would  appear  on  the  SBR-22A  summary  report: 

1.  A  title  will  appear  after  you  input  your  selection.  Press  any  key  to  continue. 

2.  Select  vour  desired  response  to  the  print  option  prompt.  Note:  the  svstem  will 
not  echo  vour  response,  so  be  patient  if  it  appears  to  take  a  little  wTiile.  The 
computer  must  handshake  with  the  printer  and  this  takes  a  little  time. 

3.  After  the  screen  displavs,  Dressing  a  key  will  display  the  next  screen.  Pressine  a 
"Q"  will  abort  the  resf  of  the  information  display  for  that  Cost  Function  and 
start  the  first  page  of  the  next  cost  function's  budget. 

4.  After  each  Cost  Function's  budget  is  displayed  vou  will  be  asked  if  you  want 
printed  output  for  the  next  screen. 

5.  After  the  last  Cost  Function  output,  you  will  be  returned  to  the  Budget  vs 
Expenses  menu. 

7.       TOTAL  BUDGET  VS  EXPENSES 

The  first  option  gives  you  the  total  budget  vs  expenses  by  Cost  Function  (see 
Figure  C.4).  It  allows  you  to  produce  a  data  file  for  the  graphics  utilities  by  answering 
yes  to  the  graphics  output  question. 

The  second  option  gives  you  the  Total  Budget  vs  Expense  by  Cost  Class.  It  also 
can  produce  the  data  file  for  the  graphics  utility. 

The  third  option  provides  you  the  total  budget  vs  expenses  information  by  Cost 
Function  and  Cost  Class. 

The  last  option  outputs  the  Total  Budget  vs  Expenses  by  Cost  Center.  The 
graphics  data  file  is  written  if  the  user  so  selects. 

All  expense  data  is  of  the  most  current  date  entered  into  the  data  base. 
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TOTAL  BUDGET  VS  EXPENSES 

1.   Cost  Function 

2.   Cost  Class 

3.   Cost  Function  Cost 

Class 

4.   Cost  Center 

Selection: 

A  blank  line  exits 

Figure  C.4    Total  Budget  vs  Expenses  Menu. 

CAUTION:  Options  "\"  and  "2"  write  to  the  same  data  file.  If  you  select  both 
to  create  the  graphics  file  during  the  same  session,  you  will  not  overwrite  but  append 
to  the  file.  The  graphics  utilities  are  not  designed  to  accept  both  types  of  data  in  the 
same  file.  It  is  best  to  have  one  or  the  other,  but  not  both  types  in  the  file.  Option  "4" 
writes  two  data  files  for  the  graphics  utilities. 

8.        BUDGET  VS  EXPENSES  (HOUR,  LABOR,  MATERIAL  OR  OTHERS) 


BUDGET  VS  EXPENSES 

1.   HOURS 

2.   LABOR 

3.   MATERIAL 

4.   OTHER 

Selection: 

A  blank  line  exits 

Figure  C.5     Budget  vs  Expenses  by  Hour,  Labor,  Material  or  Other. 
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This  menu  provides  a  further  breakdown  of  budget  vs  expenses  by  Hours,  Labor, 
Material  or  Other  (see  Figure  C.5). 

Option  "1"  compares  budgeted  hours  to  expensed  hours  by  Cost  Function/Cost 
Class. 

Option  "2"  compares  budgeted  labor  to  expensed  labor  by  Cost  Function  Cost 
Class. 

Option  "3"  compares  budgeted  to  expensed  material  by  Cost  Function/Cost 
Class. 

Option  "4"  compares  budgeted  to  expensed  other  by  Cost  Function/Cost  Class. 

9.        JOB  ORDER  INFORMATION  MENU 


JOB  ORDER  INFORMATION 

1.  Input  Cost  Function  #  Find  Job  Orders 

2.  Input  Cost  Class  #  Find  Job  Orders 


Selection: 

A  blank  line  exits 


Figure  C.6    Job  Order  Information  Menu. 

This  menu  allows  the  user  to  select  submenus  which  will  list  job  order  numbers 
associated  with  a  particular  Cost  Function,  Cost  Class  (see  Figure  C.6). 

Option  "\"  outputs  job  orders  of  the  selected  Cost  Function  number.  See  the 
Cost  Function  Input  Menu  (Figure  C.7) 

Option  "2"  outputs  job  orders  of  the  selected  Cost  Class  numbers.  See  Cost 
Class  Input  Menu  (Figure  C.8). 

10.      JOB  ORDER  NUMBER  INPUT  MENU 

Enter  the  Cost  Function  portion  first,  and  press  <enter>  (see  Figure  C.9). 
Then  enter  the  Cost  Class  portion  of  the  number;    press  <  enter >.    Finally,  enter  the 
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INPUT  THE  COST  FUNCTION  NUMBER 

Selection: 

A  blank  line  exits 

Figure  C.7    Cost  Function  Number  Input  Menu. 


INPUT  THE  COST  CLASS  NUMBER 


Selection: 


A  blank  line  exits 


Figure  C.8    Cost  Class  Number  Input  Menu. 

Job  Order  Number  and  press  <  enter  >.  The  system  will  require  you  to  verify  your 
response.  If  you  wish  to  make  changes,  type  "N"  or  "n",  and  make  the  changes  by 
reentering  all  the  values.  Entering  a  blanks  will  return  you  to  the  Job  Order 
Information  Menu. 
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THE  JOB  ORDER  NUMBER 
COST  FUNCTION  NUMBER 
COST  CLASS  NUMBER 
JOB  ORDER  NUMBER 


A  blank  line  exits 


Figure  C.9    Job  Order  Number  Input  Menu. 

1 1.  COST  FUNCTION  INPUT  MENU 

Enter  the  entire  four  digit  Cost  Function  number,  or  else  no  records  will  be 
selected  by  Oracle  (see  Figure  C.7).  Press  <enter>  when  the  numbers  have  been 
inputed.  The  system  will  require  you  to  verify  your  response.  Respond  to  the  printed 
output  prompt  and  then  the  information  of  the  Cost  Function  will  be  displayed.  After 
the  information  display,   type  <  enter>  to  return  to  the  Job  Order  Information  menu. 

12.  COST  CLASS  INPUT  MENU 

Enter  the  two-digit  Cost  Class  number  (see  Figure  C.8).  Press  <  enter >  after 
inputting  the  number.  The  system  will  ask  you  to  verify  the  response.  Respond  to  the 
"printed  output"  prompt  and  the  Job  Order  numbers  for  that  particular  cost  class  will 
be  displayed.   A  blank  entry  returns  you  to  the  Job  Order  Information  menu. 

13.  GRAPHICS 

The  graphics  portion  of  this  system,  due  to  memory  constraints,  is  accessed 
outside  of  the  system  through  DOS  commands.  There  are  four  graphs  that  the  user 
may  view.  Each  graph  is  a  separate  file,  so  that  the  user  may  choose  which  graph  to 
display.   The  following  is  a  short  description  of  each  graph  and  the  files  they  access: 

BAR.C  is  executed  from  DOS  by  typing  "BAR". 
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Figure  CIO    Single  Budget  Bar  Graph. 

This  module  produces  a  single  bar  graph,  representing  the  budget  of  each  Cost  Center 
(see  Figure  CIO).    File  accessed:   GRAF 

PLOT.C  is  executed  from  DOS  by  typing  "PLOT". 
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Figure  C.  1 1     Plot  of  Budget  and  Expenses. 

This  module  produces  a  line  graph.  The  solid  line  being  the  budget,  with  the  broken 
line  representing  the  expenses.  It  is  plotted  by  month  (see  Figure  C.ll).  Files 
Accessed:   GRAF1,  BUD 

Tripbar.c  is  executed  from  DOS  by  typing  "TRIPBAR". 
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Figured  2    Triple  Bar  Graph. 

This  module  produces  a  Triple  bar  graph.  The  middle  bar  represents  the  budget  for 
each  cost  center,  left  bar  represents  the  expenses  and  the  right  bar  represents  the 
percentage  of  the  budget  expended  (see  Figure  C.12).   Files  Accessed:   GRAF 

Combo. c  is  executed  from  DOS  by  typing  "COMBO". 
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Figure  C.13    Plot  of  Budget  and  Expenses  with  Bar  Graph  Overlayed. 

This  is  called  directly  from  DOS  after  the  CCA  system  has  been  processed.  This 
module  produces  a  full  page  line  graph,  with  the  solid  line  representing  the  budget  and 
the  broken  line  representing  the  expenses,  by  the  month.  Inset  in  the  upper  left  hand 
corner  in  a  single  bar  graph,  reduced  in  size  that  plots  the  budget  for  each  cost  center. 
Files  Accessed:   GRAF1,  BUD,  GRAF 
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If  the  user  is  more  experienced  and  plans  to  use  the  UFI  portion  of  the  system  with  the 
graphics  modules,  he  must  know  the  names  of  the  files  that  each  graphic  program 
accesses.  Please  take  note  of  the  above  information.  After  the  graph  has  completed 
execution,  a  beep  will  sound,  and  the  user  has  a  selection  of  options  that  he  may 
choose  from.  The  following  is  a  duplication  of  a  menu  that  will  appear  if  the  user 
presses  the  <  space  >  bar: 


1  -->  large,  low  resolution  plot 

L  —  >  large,  high  resolution  plot 

m  —  >  medium  sized,  high  resolution  plot 

M  -->  medium  sized,  high  resolution  plot 

g  —  >  draw  grid  on  screen 

q  —  >  quit  and  close  files 

z  —  >  zoom 

w—>  zoom  with  window 

1-9  -->  ship  n  pictures 

CR  —  >  go  on  to  next  plot 


Figure  C.14    Allowable  Modifications  of  Graphs. 

See  Figure  C.14  for  the  menu  of  listed  options  provided  the  user.  With  those  options, 
the  user  has  the  ability  to  zoom  in  for  more  detail  as  well  as  modify  the  graph 
produced. 

If  the  user  wishes  to  exit  the  graph  and  skip  the  above  menu,  he  will  just  press 
<  enter  > . 

Samples  of  printed  output  of  all  graphs  can  be  found  on  the  following  pages. 

It  should  be  noted  that  these  programs,  while  short  structurally,  take 
approximately  3  to  4  minutes  to  complete  execution.  While  the  program  is  displaying 
the  graph  on  the  screen,  line  by  line,  it  is  creating  another,  faster  executing  file.  If  the 
user  executes  the  program  BAR.C  by  typing  "BAR",  a  corresponding  file  named 
BAR.TKF  is  created.  This  file  is  executed  by  typing  "play  BAR.TKF". 

This  file  is  only  a  replay  of  the  program  BAR.C,  and  will  not  contain  current 
data  if  the  data  base  system  has  been  accessed  again.  The  advantages  of  having  a 
".TKF"  file  is  speed.  If  the  user  wishes  to  review  plotted  data  previously  created,  or  if 
the  graphic  display  is  being  used  in  a  presentation,  there  is  no  need  to  endure  the 
tedious  wait  of  the  main  program. 

The  play  option  is  provided  as  a  utility  with  the  Graphic  graphics  library. 
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14.      AD  HOC,  UPDATES,  DELETIONS,  MODIFICATIONS  WITH  ORACLE 

a.  Introduction 

Oracle,  through  UFI,  provides  you  with  many  features  and  procedures. 
Information  can  be  extracted  and  displayed  in  many  different  ways.  The  menu  driven 
portion  of  this  system  allows  you  easy  access  to  some  of  the  information  provided 
through  this  system.  However,  all  queries  could  not  be  anticipated  and  some  people 
prefer  to  use  the  command  language  instead  of  the  menus.  For  these  people  we  have 
provided  the  option  of  using  UFI  to  interface  with  Oracle.  The  UFI  interface  can  also 
be  used  to  update  the  data  base,  delete  rows,  change  attributes  and  even  format 
reports.  We  will  give  you  a  brief  description  to  get  you  started.  For  further 
information  and  for  more  advanced  techniques,  see  the  Oracle  User  Manual  Vol.  I 
[Ref.  16]  that  comes  with  the  Oracle  data  base. 

b.  Getting  in  and  out 

The  first  thing  you  must  know  is  how  to  get  in  and  out  of  UFI.   You  must  be 
in  the  same  directory  as  the  execute  file  CCA. EXE.    Then  make  sure  you  run  Oracle 
before  running  CCA.   Type  Oracle  at  the  DOS  command  prompt  as  shown: 
D> ORACLE 
Then  type  CCA  at  the  prompt. 

D>CCA 
When  the  first  menu  appears  choose  2.    If  all  goes  well  the  next  prompt 
should  look  like  this: 
UFI> 
You  now   should  be  in  UFI.     The  authorized  userid  and   password  were 
automatically  issued  in  the  call  to  UFI.    When  you  are  done  and  wish  to  exit  type 
EXIT  at  the  UFI  prompt. 
UFI  >  EXIT 
This  will  return  you  to  the  first  menu  again  where  you  can  reenter  UFI,  use 
the  menu  driven  queries,  or  exit  to  DOS. 

c.  Ad  Hoc  Queries 

Once  you  are  in  UFI  and  have  the  UFI  prompt,  you  are  ready  to  begin.  First 
you  must  know  the  name  of  the  tables  you  are  dealing  with,  have  an  idea  of  the 
information  stored  in  each,  and  the  relationships  between  tables.  All  this  information 
is  contained  in  the  data  dictionary  (Appendix  A).  In  summary,  the  following  are  the 
names  of  the  tables  associated  with  CCA: 
1.     EXPENSE 
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2.     BUDGET 

The  simplest  query  to  make  will  give  you  all  the  information  in  a  particular 
table.  To  display  this  information  at  the  prompt  type: 

UFI>  SELECT  *  FROM  BUDGET;  This  means  select  all  the  columns 
from  the  table  BUDGET.  It  will  display  all  the  information  contained  in  the  table.  Be 
sure  to  end  each  query  with  a  semicolon. 

Perhaps  you  do  not  want  all  the  information  in  the  table  but  only  specific 
columns.   To  display  this  information  type  at  the  prompt: 

UFI>  SELECT  COST_FUN_NO,  COST_CL_NO,  STLABOR,  FROM 
BUDGET; 

This  will  display  three  columns  from  the  table  BUDGET,  namely  Cost 
Function  number,  Cost  Class  number,  and  Straight  Time  Labor  for  all  rows  in  the 
table.  Notice  the  commas  between  the  column  names.  There  is  no  comma  between 
the  last  column  name  and  the  key  word  FROM.  Once  again  the  statement  is  ended 
with  a  semicolon. 

If  you  do  no  want  all  the  rows  but  only  specific  rows,  you  can  limit  which 
ones  you  get  like  this: 

UFI>  SELECT  *  FROM  EXPENSE  WHERE  COST_FUN_NO  =  '9112'; 

This  will  display  all  the  information  for  every  record  in  the  EXPENSE  table  for  cost 
function  9112.  The  word  of  number  must  be  exactly  as  it  is  in  the  data  base,  including 
capital  letters.  In  UFI,  if  you  forget  exactly  how  the  data  was  entered,  Oracle  cannot 
find  a  match.   Again  notice  the  semicolon  at  the  end  of  the  query. 

The  next  step  is  to  combine  what  we  have  learned  to  derive  even  more  specific 
information.   Here  is  an  example: 

UFI  >  SELECT      COST  FUN  NO,       COST  CL  NO,      STLABOR       FROM 
EXPENSE  "  "      " 

2  WHERE  COST_FUN_NO  =  '91 18' 

3  AND  COST_CL_NO  =    54'; 

There  are  several  things  to  notice  on  this  query.  First,  it  takes  more  than  one  line. 
UFI  automatically  enters  the  numbers  for  each  line.    Commas  are  placed  only  between 
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column  names,  but  not  between  STLABOR  and  the  key  word  FROM.  The  key  word 
AND  must  separate  the  predicates  after  the  where  statement.  The  values  that  you  are 
looking  for  must  be  in  the  same  format  as  the  data  is  stored,  first  letter  capitalized  and 
the  remaining  in  lower  case.   The  entire  query  finally  must  be  ended  with  a  semicolon. 

Now  you  can  go  and  look  for  specific  information  from  a  single  table.  But 
what  if  you  want  information  that  is  contained  in  two  different  tables?  Do  you  have  to 
write  two  different  queries  comparing  the  first  to  the  second  to  find  the  information 
you  are  seeking?  No,  because  this  would  be  the  end  of  this  tutorial. 

d.  Joins 

Combining  tables  is  known  as  a  join.  To  join  tables  they  must  have  a 
common  attribute  (column).  The  name  can  be  different  but  the  values  must  be  stored 
the  same  way. 

Let's  look  at  an  example.  Suppose  you  want  to  look  at  budget  compared  to 
expenses  for  a  particular  date  that  is  in  the  data  base.  You  want  to  join  BUDGET  and 
EXPENSE.  They  have  two  common  attributes  COST_FUN_NO  and  COST_CL_NO 
on  which  they  can  be  joined.   Lets  look  at  this  Oracle  statement. 

UFI  >  SELECT  BUDGET.STHOURS,  BUDGET.STLABOR, 

EXPENSE.STHOURS, 

2  EXPENSE.STLABOR  FROM  BUDGET,  EXPENSE 

3  WHERE  BUDGET.COST_FUN_NO  =  EXPENSE.COST_FUN_NO 

4  AND  BUDGET.COST_CL_NO  =  EXPENSE.COST_CL_NO 

5  AND  DT  =  '31-OCT-86'; 

This  will  display  Straight  Time  Hours  and  Straight  Time  Labor  costs  for  BUDGET  and 
EXPENSE  values  where  the  date  DT  is  31  OCT  86.  Notice  the  attributes  that  are 
joined  on,  COST_FUN_NO  and  COST_CL_NO  are  both  explicitly  stated  in  the  join. 
The  name  of  the  table  before  the  name  of  the  attribute  needs  to  be  there  only  if  the 
names  in  the  tables  are  the  same.  Thus  the  attribute  DT  in  EXPENSE  does  not  have 
to  be  written  as  EXPENSE. DT  because  there  is  no  DT  in  the  BUDGET  table; 
however,  it  could  be  if  you  prefer  for  the  sake  of  clarity. 

e.  Mathematical  Manipulations 

The  next  topic  in  Ad  Hoc  Queries  is  how  to  add,  subtract,  multiply,  divide, 
find  the  maximum  and  minimum  numbers.  We  will  look  at  addition.  The  Other 
operators  work  in  the  same  manner. 


150 


To  add  a  column  of  numbers,  the  command  is: 
UFI>  SELECT  SUM(STLABOR)  FROM  BUDGET; 


or 


UFI>  SELECT  SUM(STLABOR),  SUM(MATERIAL),  SUM(OTHER) 
2   FROM  BUDGET; 

This  can  also  be  done  with  a  join: 

UFI>  SELECT  SUM(BUDGET.STHOUR),  SUM(EXPENSE.STHOUR) 

2  FROM  BUDGET,  EXPENSE 

3  WHERE  BUDGET.COST_FUN_NO  =  EXPENSE.COST_FUN_NO 

4  AND  BUDGET.COST_CL_NO  =  EXPENSE.COST_CL_NO 

5  ANDDT  =  '31-OCT-86'; 

Rows  can  also  be  summed  up: 


UFI  >  SELECT       OTLABOR  +  STLABOR  +  MATERIAL  +  OTHER       FROM 
BUDGET; 


Or  you  can  sum  both  columns  and  rows  at  the  same  time. 

UFI  >  SELECT  SUM(OTLABOR)  +  SUM(STLABOR)  +  SUM(MATERIAL)  + 
2     SUM(OTHER)  FROM  BUDGET; 

All  of  the  mathematical  manipulations  are  performed  in  the  same  way.    Consult  the 
Oracle  User  Manual  for  more  advanced  mathematical  manipulations, 
f.   Group  By 

Another  useful  command  is  the  GROUP  BY  command.  It  is  especially  useful 
in  summarizing  information,  such  as  adding  columns.  Suppose  you  want  the  total 
overtime  hours  budgeted  by  each  cost  function  for  the  entire  year.  The  command  to 
display  this  information  is: 
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UFI>  SELECT  COST_FUN_NO,SUM(OTHOURS)  FROM  BUDGET 
GROUP  BY  COST_FUN_NO; 

Without  the  GROUP  BY  COST_FUN_NO,  Oracle  would  not  know  how  to  display  the 
COST_FUN_NO  with  a  sum,  since  sum  returns  one  total  value  for  all  cost  functions. 
With  the  GROUP  BY  cost  function.  Oracle  will  return  a  sum  for  each  cost  function  as 
shown  in  Figure  C.15 


COST_FUN_NO     SUM(HOURS) 


9112 

20 

9113 

100 

9114 

450 

9115 

150 

etc.  for  each  cost  function  in  the  data  base. 


Figure  C.15    Output  of  Using  the  GROUP  BY  Command. 

g.  Sub  Queries 

A  sub  query  is  also  useful  in  summarizing  data.  A  sub  query  is  using  another 
select  statement  to  return  a  value  for  the  main  query.  An  example  might  make  this  a 
little  clearer. 

Suppose  you  want  to  find  the  total  expenses  to  date  but  you  do  not  know  the 
last  date  of  the  data  in  the  data  base.  You  could  make  two  separate  queries,  one  to 
find  out  what  the  maximum  date  is  and  one  to  find  the  sums  for  that  date.  Or  you 
could  combine  it  into  one  query  as  shown: 


UFI>  SELECT  SUM(OTLABOR  +  STLABOR+MATERIAL  + OTHER) 

FROM  EXPENSE 

2  WHERE  DT  =  (SELECT  MAX(DT)  FROM  EXPENSE); 


The  sub  query  returns  the  maximum  value  of  the  date  DT  which  is  then  used  to  find 
the  sum.  Notice  that  the  rows  are  added  first  and  then  the  sum  of  that  resulting 
column  is  found. 


152 


Sub  queries  can  also  return  a  set  of  values.    Refer  to  the  user  manual  [Ref.  16] 
for  more  on  sub  queries, 
h.  Updates 

As  stated  previously,  the  updates  will  be  handled  through  electronic  transfers 
of  data  from  the  Prime  Network  computer.  The  manager  does  have  the  option  of 
updating  on  his  own,  whether  to  make  his  data  current  before  the  update,  or  possibly 
to  assist  in  answering  "What  if  type  questions.  The  manager  could  change  expense 
figures,  or  budget  figures  to  see  what  effects  changes  have  and  then  graph  out  the 
results. 

Updates  can  also  be  used  to  scale  values  or  for  global  type  changes.  Or  for 
example,  it  could  be  used  to  change  particular  values.  The  following  statement 
multiplies  each  number  in  STHOURS  of  the  BUDGET  table  by  60  to  find  the  number 
of  minutes  budgeted  for  cost  function  9118. 

UFI>  UPDATE  BUDGET  SET  STHOURS  =  HOURS  *  60 
2  WHERE  COST_FUN_NO  =  '9118'; 

Update  can  also  be  used  to  change  one  value: 

UFI>  UPDATE  BUDGET  SET  MATERIAL  =  6465 

2  WHERE  COST_FUN_NO  =  '9116' 

3  AND  COST_CL_NO  =  '97'; 

i.    Deletions 

Deletions  will  generally  be  taken  care  of  by  the  updates  from  the  Prime 
Network,  semiweekly.   You  can  make  your  own  deletions  if  you  wish,  however. 

UFI>  DELETE  FROM  BUDGET 

2  WHERE  COST_FUN_NO  =  '9112' 

3  AND  COST_CL  _NO  =    02'; 

This  statement  would  delete  the  row  in  the  table  BUDGET,  where  Cost  Function  is 
9112  and  Cost  Class  is  02.  The  same  command  given  on  the  EXPENSE  table  would 
delete  a  row  for  every  date  whose  Cost  Function  is  9112  and  whose  Cost  Class  is  02. 
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j.      Modifications 

Modifications  to  the  existing  data  base  is  not  recommended  on  individual 
bases.  Since  updates  come  from  the  Prime  Network,  any  additions  or  deletions  of 
columns  would  make  these  updates  impossible,  unless  all  systems  and  the  Prime 
Networks  reports  in  which  the  data  is  derived  are  also  modified.  Under  special 
circumstances  a  modification  may  be  desirable.  To  accomplish  this  the  ALTER 
command  is  used. 

UFI  >  ALTER  TABLE  BUDGET 
2  ADD  (YEAR  DATE); 

The  data  would  then  have  to  be  inputted  using  the  UPDATE  command  described 
above. 

Tables  can  also  be  created  and  destroyed  by  the  CREATE  TABLE  and  the 
DROP  TABLE  commands  respectively.  The  easiest  way  to  create  a  table  is  to  create 
UFI  files  as  presented  in  Appendix  A.  A  sample  of  how  to  run  UFI  files  is  shown 
below. 

1.  At  the  DOS  prompt  run  Oracle. 
CORACLE 

2.  When  Dos  Prompt  returns  tvpe  UFI  followed  by  the  at  symbol  above  the  2,  @, 
and  then  the  UFI  filename  as  shown. 

CUFI  @BUDGET.UFI 

3.  This  will  create  vour  table,  insert  the  data  and  create  anv  indexes  as  vou  entered 
it  into  the  UFI  file.   See  Appendix  A  for  sample  UFI  files. 


The  CREATE  command  is  used  as  shown  below: 

UFI  >  CREATE  TABLE  PROJ 

2  (PROJNO  NUMBER  NOT  NULL, 

3  NAMECHAR(IO)); 

A  different  view  or  subset  of  a  table  can  also  be  created  in  a  similar  fashion: 
UFI  >  CREATE  VIEW  TELEPHONE  AS 
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2  SELECT  LAST,  FIRST,  PHONE 

3  FROM  EMPLOYEE 

4  WHERE  EID  <  '400000000'; 

This  table  would  allow  you  to  look  at  the  telephone  numbers  of  employees 
whose  EID  is  less  than  400000000. 

The  DROP  command  is  used  as  follows: 

UFI>  DROP  TABLE  PROJ; 

The  table  called  PROJ  will  no  longer  be  in  the  data  base  unless  recreated, 
k.     Other  Goodies 

As  mentioned  earlier,  Oracle  is  a  powerful  data  base  management  system  with 
a  variety  of  options  and  commands.  Some  of  the  more  interesting  ones  would  be  ways 
to  present  the  data  in  a  better  format.  Although  the-  CCI  module  in  the 
microcomputer  implementation  of  CCA  does  much  of  this  for  you,  you  could  dress  up 
those  answers  to  queries  or  even  those  provided  in  the  CCI. 

A  few  examples  of  the  basic  formatting  commands  include  COLUMN, 
TTITLE,  BTITLE,  BREAK,  and  COMPUTE.  We  shall  look  mostly  at  COLUMN 
and  TTITLE  here  but  be  aware  that  these  Other  commands  exist  if  you  need  them. 
COLUMN  formats  a  column's  heading  and  data.  Instead  of  having  COST_FUN_NO 
printed  out  on  a  report,  you  can  change  it  to  COST  FUNCTION  as  shown  below: 

UFI>  COLUMN  COST_FUN_NO  HEADING  COST  FUNCTION 

UFI>  SELECT  COST_FUN_NO,  SUM(STLABOR)  FROM  BUDGET 
2  GROUP  BY  COST_FUN_NO; 

TTITLE  can  then  be  used  to  place  a  title  on  the  page. 

UFI>  TTITLE  'B  U  D  G  E  T  |  |  BY  COST  FUNCTION' 

BTITLE  puts  a  title  at  the  bottom  of  a  page. 
BREAK  breaks  up  the  report  into  groups  of  rows. 
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COMPUTE  computes  totals  and  subtotals  on  the  report. 

If  you  are  interested  in  these  commands  see  the  User  Manual  for  Oracle  [Ref.  16]. 
1.      Editing  in  UFI 

To  end  this  tutorial  on  the  use  of  UFI,  here  are  some  tips  on  editing.  The  key 
commands  are  CHANGE,  LINE,  RUN,  LIST,  INP,  AND  DEL.  To  demonstrate 
these  commands  let  us  take  a  select  statement: 

UFI  >  SELECT  STLABOR,  MATERIAL 

2  FROM  BUDGET 

3  WHERE  COST_FUN_NO  =  '9118' 

4  AND  COST_CL_NO  >  '91; 

If  you  run  this  and  you  wish  to  change  something  either  because  of  an  error  or  to  get  a 
variation  on  the  information,  you  do  not  have  to  type  the  command  in  all  over. 

UFI  >  LIST 

This  will  list  the  last  command  you  typed  in.   type: 


UFI  >  LI 

That  will  take  you  to  line  1  and  display: 

1*  SELECT  STLABOR,  MATERIAL 

UFI  >  CHANGE/MATERIAL/OTHER/ 
1*   SELECT  STLABOR,  OTHER 

This  command  will  change  Material  to  Other  in  line  1.   To  execute  this  type: 

UFI  >  RUN 
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This  will  execute  the  entire  statement.    If  you  want  to  add  lines  to  the  current  SQL 
command  use  the  INP  command. 

UFI>INP 

5  GROUP  BY  COST_CL_NO 

6 

This  will  add  this  line  to  the  command.   Del  will  delete  the  current  line  marked  by  the 
* 

UFI>LIST 

SELECT  LABOR,  MATERIAL 

2  FROM  BUDGET 

3  WHERE  COST_FUN_N0  =  '9118' 

4  AND  COST_CL_NO  >  '91' 
5*  GROUP  BY  COST_CL_NO; 

UFI>DEL 

Line  5  is  now  deleted  and  this  SQL  statement  can  be  run. 

This  tutorial  briefly  describes  a  procedure  that  can  be  followed  if  you  choose 
to  interface  with  Oracle  at  the  command  level.  Remember  that  statements  must  end 
with  a  semicolon  and  that  if  all  else  fails,  use  the  Oracle  User  Manual  [Ref.  16].  The 
next  page  summarizes  the  procedures  necessary  to  access  the  Ufl  and  key  commands 
to  issue  UFI  and  SQL  commands. 

m.    Summary  of  UFI  and  SQL  Commands  for  Command  Level  Processing 

1.  Turn  on  machine  and  allow  to  boot  up. 

2.  Computer  boots  up  onto  the  A:  or  C:  disk  drive  depending  on  the  particular 
configuration. 

3.  Type  in  CCA  at  the  appropriate  prompt  as  shown 

C>  CCA 

4.  The  first  menu  gives  you  a  choice  of  either  menu  driven  or  command  line. 
Choose  2  command  line. 

5.  The  following  is  a  list  of  commands  and  the  formats  for  using  them: 

SELECT  ATTRIBUTE1,ATTRIBUTE2,..  FROM  TABLENAME 
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WHERE  ATTRIBUTE  1  =  'VALUE' 

AND  ATTRIBUTE2  =  (SELECT  ATTRIBUTE2  FROM  TABLENAME 

WHERE  TIME  =  MAX(TIME); 

UPDATE  TABLENAME  SET  ATTRIBUTE1  =  ATTRIBUTE1  /  100 
WHERE  ATTRIBUTEl  >   10000; 


JOINS: 


SELECT  ATTRIBUTEl,  ATTRIBUTE2,  ATTRIBUTE3,... 
FROM  TABLENAME1,  TABLENAME2 
WHERE  ATTRIBUTEl  =  ATTRIBUTE2; 
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APPENDIX  D 
CPL  AND  TELL-A-GRAF  PROGRAMS  FOR  PRIME  MINICOMPUTER 

1.        CPL  PROGRAMS 

a.  PR. CPL 
/*(PR.CPL)  PREPARE  REPORTS 

/*  PROVIDE  USER  WITH  REPORT  PRODUCING  CAPABILITY  WITH  TEL-A-GRAF 
&ARGS  ANS 

/^DISPLAY  TOP  MENU 
R  DT5 

/*GET  USER  RESPONSE  AND  VALIDATE 

&SET_VAR  FLAG  :=  FALSE  /*  INITIALIZE  FLAG  TO  FALSE 
&DO  &UNTIL  %FLAG%  =  TRUE 

&SET_VAR  ANS  :=  [RESPONSE  'Select  One'] 
&DO  CHECK  &LIST  S  T  Q 

&IF  %ANS%  =  %CHECK%  &THEN  &SET_VAR  FLAG  :=  TRUE 
&END 
&IF  %FLAG%  =  FALSE  &THEN  &SET.VAR  ANS  :=  [RESPONSE  'Select 
One'] 

&END 
&IF  %ANS%  =  'T'  &THEN  R  CTEL 
&IF  %ANS%  =  'Q'  &THEN  &RETURN 
&RETURN 

b.  DT5.CPL 

/^DISPLAY  TOP   display  top  menu 
R  NL2  27 

TYPE  '  'T  -  TEL-A-GRAF  GRAPHICS 

TYPE  '  'Q  -  QUIT 

R  NL2  10 
&RETURN 
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c .  NL2 . CPL 
&ARGS  JUMP 

&D0  M  :=  0  &T0  %JUMP%  &BY  1 

TYPE 

&END 
&RETURN 

d.  CTEL.CPL 
/*(CTEL.CPL)  CALL  TEL-A-GRAF 
&D0  &UNTIL  %FINISH%  =  TRUE 

&SET_VAR  ANSWER  :=  [QUERY  'Enter  TEL-A-GRAF  at  COMMAND  LEVEL'] 
&IF  %ANSWER%  =  FALSE  &THEN 

R  MANTEL 

&ELSE 

R  FREE 

&SETJ/AR  FINISH  :=  [QUERY  'Finished'] 

&END 
&RETURN 

e.  MANTEL. CPL 

/* (MANTEL. CPL)   MANIPULATE  TEL-A-GRAF 

/^Select  data,  type  of  graph  and  open  TEL-A-GRAF 

&SET_VAR  COSTCEN  :=  [RESUME  SCC] 

&SET_VAR  PLOTCODE  :=  [RESUME  SPLT] 

&SET_VAR  PLOTOPT  :=  [RESUME  SPLO] 

R  OPTEL  %COSTCEN%  %PLOTCODE%  %PLOTOPT% 

&RETURN 

f.  SCC. CPL 
/*(SCC.CPL)  SELECT  COST  CENTER 

/^Select  the  desired  cost  center  code  for  use  with  TEL-A-GRAF 
R  DCC 

&SET_VAR  ANS  :=  [RESUME  VCC] 
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&RESULT  %ANS% 
&RETURN 

g.     DCC.CPL 
/*(DCC.CPL)  DISPLAY  COST  CENTER 

/^Display  the  cost  centers  that  can  be  graphed  with  TEL-A-GRAF 
R  NL2  13 

TYPE  ■  'CHOOSE  COST  CENTER 

R  NL2  3 

TYPE  '  '1-110 

R  NL2  10 
&RETURN 

h.     VCC.CPL 
/*(VCC.CPL)  VALIDATE  COST  CENTER  CODE 

/*  Request,  get  and  validate  the  user  response  to  the  Cost  Center 
menu 

&SET_VAR  ANS  :=  [RESPONSE  'Select  One'] 
&SET_VAR  FLAG  :=  FALSE  /^INITIALIZE  FLAG  TO  FALSE 
&DO  &UNTIL  %FLAG%  =  TRUE 

&DO  CHECK  &LIST  1 

&IF  %ANS%  =  %CHECK%  &THEN  &SET_VAR  FLAG  :=  TRUE 
&END 

&IF  %FLAG%  =  FALSE  &THEN  &SETJ/AR  ANS  :=  [RESPONSE  'SelectOne'] 

&END 
&RESULT  %ANS% 
&RETURN 


i.     SPLT.CPL 
/*(SPLT.CPL)  SELECT  PLOT 

/*The  user  is  given  the  ability  to  select  the  type  of  graph  TEL-A-GRAF 
/*will  produce. 

R  DPLT 
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&SET_VAR  ANS  :=  [RESUME  VPLT] 

&RESULT  %ANS% 

&RETURN 


j  .  DPLT . CPL 

/*(DPLT.CPL)  DISPLAY  PLOT 

/^Display  the  choices  for  the  type  of  plot  available  to  the  user  RNL2 
10 

TYPE  ■  'GRAPH  PLOT  CODE  SELECTIONS: 

R  NL2  4 

TYPE  ■  'A  -  PLOT  OF  EXPENSE  TO  BUDGET  WITH 

TYPE  '  '  BARCHART  OF  BUDGET  OVERLAYED  ON 

THE 

R  NL2  1 
TYPE  ' 
TYPE  ' 
R  NL2  1 
TYPE  ■ 
R  NL2  10 
&RETURN 


'B  -  BARCHART  BY  COST  FUNCTION/ COST  CLASS  OF 
1  EXPENSE  TO  BUDGET 

•C  -  COMPOSITE  VARIANCE  BARCHARTS 


k.  VPLT. CPL 
/*( VPLT. CPL)  VALIDATE  PLOT  CODE 

/^Request,  get  and  validate  the  user  response  to  the  Plot  Codemenu 
&SET_VAR  ANS  :=  [RESPONSE  'Select  One'] 
&SETJ/AR  FLAG  :=  FALSE     /^INITIALIZE  FLAG  TO  FALSE 
&DO  &UNTIL  %FLAG%  =  TRUE 
&DO  CHECK  &LIST  ABC 

&IF  %ANS%  =  %CHECK%  &THEN  &SET.VAR  FLAG  :=  TRUE 
&END 
&IF  %FLAG%  =  FALSE  &THEN  &SET_VAR  ANS  :=  -RESPONSE  'Select  One'] 
&END 
&RESULT  %ANS% 
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&RETURN 

1.  SPLO.CPL 
/*(SPLO.CPL)  SELECT  PLOT  OPTIONS 

/^Select  the  option  to  plot  the  total  cost  center  or  a  cost  function 
/*  within  it  . 
R  DPLO 

&SETJ7AR  ANS  :  =  [RESUME  VPLO] 
&RESULT  %ANS% 
&RETURN 


m.  DPLO.CPL 
/*(DPLO.CPL)  DISPLAY  PLOT  OPTIONS 

/^Display  the  menu  cost  functions  that  can  be  plotted  under  the 
/*  cost  center  and  for  the  plot  type  selected 
R  NL2  10 

'PLOT  OPTIONS: 


TYPE  ■ 

R  NL2  2 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

TYPE 

R  NL2  10 

&RETURN 


'A  -  TOTAL 

'2  -  112 

'3  -  113 

'4  -  114 

'5  -  115 

'6  -  116 

'7  -  117 

'8  -  118 

'9  -  119 
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n.  VPLO.CPL 
/*(VPLO.CPL)   VALIDATE  PLOT  OPTIONS  CODE 

/^Request,  get  and  validate  the  user  response  to  the  Plot  Options  menu 
&SET_VAR  ANS  :=  [RESPONSE  'Select  One'] 
&SET_VAR  FLAG  :=  FALSE   /^INITIALIZE  FLAG  TO  FALSE 
&DO  &UNTIL  %FLAG%  =  TRUE 

&DO   CHECK  &LIST  A23456789 

&IF  %ANS%  =  %CHECK%  &THEN  &SET_VAR  FLAG  :=  TRUE 
&END 
&IF  %FLAG%  =  FALSE  &THEN  &SET_VAR  ANS  :=  [RESPONSE  'Select  One'] 
&END 
&RESULT  %ANS% 
&RETURN 


o.  OPTEL.CPL 
/*(OPTEL.CPL)  OPEN  TEL-A-GRAF 

/*Open  TEL-A-GRAF  and  input  the  user's  graph  selection.   If  Free 
/*Form  is  selected  the  user  will  input  the  graph  selections.   &ARGS 
COSTCEN;  PLOTCODE ;  PLOTOPT 
&SET.VAR  SECOND ATA  :=  ' ■ 
&SETJ/AR  THIRDINCLUDE  :=  ' ' 
&SETJ/AR  FOURTHIMCLUDE  :=  ' ' 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1AA  &THEN 
&DO 

&SETJ/AR  DATAFILE  :=  "BE110" 

&SET_VAR  SECONDATA  :=  "B110" 

&SET_VAR  INCLUDEFILE  :=  "EX2" 

&SET_VAR  SECONDINCLUDE  :=  "Bl" 

&END 
&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1A2  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BE112" 

&SET_VAR  SECONDATA  :=  "B110" 

&SET  VAR  INCLUDEFILE  :=  "EX2" 
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&SETJ/AR  SECONDINCLUDE  :=  "EX112" 
&SETJ7AR  THIRDINCLUDE  :=  "Bl" 
&SETJ/AR  FOURTHINCLUDE  :=  ' ' 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1A3  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BE113" 
&SET_VAR  SECONDATA  .=  "BllO" 
&SET_VAR  INCLUDEFILE  :=  "EX2" 
&SET_VAR  SECONDINCLUDE  :=  "EX113" 
&SET_VAR  THIRDINCLUDE  :=  "Bl" 
&SET_VAR  FOURTHINCLUDE  :  =  ' ' 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1A4  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BE114" 
&SETJ/AR  SECONDATA  :=  "BllO" 
&SETJ/AR  INCLUDEFILE  :=  "EX2" 
&SET_VAR  SECONDINCLUDE  :=  "EX114" 
&SET_VAR  THIRDINCLUDE  :=  "Bl" 
&SET_VAR  FOURTHINCLUDE  :=  " 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1A5  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BE115" 
&SET_VAR  SECONDATA  :=  "BllO" 
&SET_VAR  INCLUDEFILE  :=  "EX2" 
&SET.VAR  SECONDINCLUDE  :=  "EX115" 
&SET_VAR  THIRDINCLUDE  :=  "Bl" 
&SET_VAR  FOURTHINCLUDE  :=  ' ' 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1A6  &THEN 
&DO 

&SETJ/AR  DATAFILE  :=  "BE116" 
&SET_VAR  SECONDATA  :=  "BllO" 
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&SETJ7AR  INCLUDEFILE  :=  MEX2,« 
&SET_VAR  SECONDINCLUDE  :=  "EX116" 
&SET_VAR  THIRDINCLUDE  :=  "B1M 
&SET_VAR  FOURTHINCLUDE  :=  ' ' 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1A7  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BE117" 
&SET_VAR  SECONDATA  :=  "BllO" 
&SET_VAR  INCLUDEFILE  :=  "EX2" 
&SET_VAR  SECONDINCLUDE  :=  "EX117" 
&SET_VAR  THIRDINCLUDE  :=  "Bl" 
&SET_VAR  FOURTHINCLUDE  :=  ' ' 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1A8  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BE118" 
&SET_VAR  SECONDATA  :=  "BllO" 
&SET_VAR  INCLUDEFILE  :=  "EX2" 
&SET_VAR  SECONDINCLUDE  :=  "EX118" 
&SETJ/AR  THIRDINCLUDE  :=  "Bl" 
&SET_VAR  FOURTHINCLUDE  :=  ' ' 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1A9  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BE119" 
&SET_VAR  SECONDATA  :=  "BllO" 
&SET_VAR  INCLUDEFILE  :=  "EX2" 
&SET_VAR  SECONDINCLUDE  :=  "EX119" 
&SET_VAR  THIRDINCLUDE  :=  "Bl" 
&SETJ/AR  FOURTHINCLUDE  :=  ' ' 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1BA  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BBE110" 
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&SET_VAR  INCLUDEFILE  :=  "B4" 
&SETJ/AR  SECONDINCLUDE  :=  ' ' 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B2  &THEN 
&DO 

&SETJ/AR  DATAFILE  :=  "BBE112" 
&SET_VAR  INCLUDEFILE  :=  "B4" 
&SETJ/AR  SECONDINCLUDE  :=  "B112" 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B3  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BBE113" 
&SET_VAR  INCLUDEFILE  :=  "B4" 
&SETJ/AR  SECONDINCLUDE  :=  "B113" 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B4  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BBE114" 
&SET_VAR  INCLUDEFILE  :=  "B4" 
&SETJ7AR  SECONDINCLUDE  :=  "B114" 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B5  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BBEllS" 
&SET_VAR  INCLUDEFILE  :=  "B4" 
&SET_VAR  SECONDINCLUDE  :=  "B115" 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B6  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BBE116" 
&SET_VAR  INCLUDEFILE  :=  "B4" 
&SET_VAR  SECONDINCLUDE  :=  "B116" 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B7  &THEN 
&DO 
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&SET_VAR  DATAFILE  :=  "BBE117" 
&SET_VAR  INCLUDEFILE  :=  "B4" 
&SETJ7AR  SECONDINCLUDE  :=  "B117" 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B8  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BBE118" 
&SET.VAR  INCLUDEFILE  :=  nB4" 
&SET_VAR  SECONDINCLUDE  :=  "B118" 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1B9  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "BBE119" 
&SET_VAR  INCLUDEFILE  :=  "B4" 
&SET.VAR  SECONDINCLUDE  :=  "B119" 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1CA  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "PB110" 
&SET_VAR  INCLUDEFILE  :=  "PERBAR" 
&SET_VAR  MESSAGE  :=  "9110" 
&SET_VAR  SECONDATA  :=  "NB110" 
&SET_VAR  SECONDINCLUDE  :=  "NORBAR" 
&SET_VAR  THIRDATA  :=  "VB110" 
&SETJ/AR  THIRDINCLUDE  :=  "VARBAR" 
&SET_VAR  FOURTHDATA  :=  "PV110" 
&SET_VAR  FOURTHINCLUDE  :=  "PERVAR" 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C2  &THEN 
&D0 

&SET_VAR  DATAFILE  :=  "PB112" 
&SET_VAR  INCLUDEFILE  :=  "PERBAR" 
&SET_VAR  SECONDATA  :=  "NB112" 
&SET_VAR  SECONDINCLUDE  :=  "NORBAR" 
&SET_VAR  THIRDATA  :=  "VB112" 
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&SET_VAR  THIRDINCLUDE  :=  "VARBAR" 
&SETJ7AR  FOURTHDATA  :=  "PV112" 
&SET_VAR  FOURTHINCLUDE  :  =  "PERVAR" 
&SET_VAR  MESSAGE  :=  "9112" 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C3  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "PB113" 
&SET_VAR  INCLUDEFILE  :=  "PERBAR" 
&SET_VAR  SECONDATA  :=  "NB113" 
&SET_VAR  SECONDINCLUDE  :=  "NORBAR" 
&SETJ7AR  THIRDATA  :=  MVB113n 
&SET.VAR  THIRDINCLUDE  :=  "VARBAR" 
&SET_VAR  FOURTHDATA  :=  "PV113" 
&SETJ/AR  FOURTHINCLUDE  :=  "PERVAR" 
&SET_VAR  MESSAGE  :=  "9113" 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C4  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "PB114" 
&SET.VAR  INCLUDEFILE  :=  "PERBAR" 
&SET_VAR  SECONDATA  :=  "NB114" 
&SET_VAR  SECONDINCLUDE  :=  "NORBAR" 
&SETJ/AR  THIRDATA  :=  "VB114" 
&SET_VAR  THIRDINCLUDE  :=  "VARBAR" 
&SET_VAR  FOURTHDATA  :=  "PV114" 
&SET_VAR  FOURTHINCLUDE  :=  "PERVAR" 
&SET_VAR  MESSAGE  :=  "9114" 
&END 

&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C5  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "PB115" 
&SET_VAR  INCLUDEFILE  :=  "PERBAR" 
&SETJ/AR  SECONDATA  :=  "NB115" 
&SET_VAR  SECONDINCLUDE  :=  "NORBAR" 
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&SET_VAR  THIRDATA  :  =  "VB115" 
&SET_VAR  THIRDINCLUDE  :=  "VARBAR" 
&SET_VAR  FOURTHDATA  :=  "PV115" 
&SET_VAR  FOURTHINCLUDE  :=  "PERVAR" 
&SET_VAR  MESSAGE  :=  "9115" 
&END 
&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C6  &THEN 
&DO 

&SET_VAR  DATAFILE  :  =  "PB116" 
&SET_VAR  INCLUDEFILE  :=  "PERBAR" 
&SET_VAR  SECONDATA  :  =  "NB116" 
&SET_VAR  SECONDINCLUDE  :=  "NORBAR" 
&SET_VAR  THIRDATA  :=  "VB116" 
&SET_VAR  THIRDINCLUDE  :=  "VERBAR" 
&SETJ/AR  FOURTHDATA  :=  "PV116" 
&SET_VAR  FOURTHINCLUDE  :=  "PERVAR" 
&SET_VAR  MESSAGE  :=  "9116" 
&END 
&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C7  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "PB117" 
&SET_VAR  INCLUDEFILE  :=  "PERBAR" 
&SETJ/AR  SECONDATA  :=  "NB117" 
&SET_VAR  SECONDINCLUDE  :=  "NORBAR" 
&SET_VAR  THIRDATA  :=  "VB117" 
&SET_VAR  THIRDINCLUDE  :=  "VERBAR" 
&SET_VAR  FOURTHDATA  :=  "PV117" 
&SET_VAR  FOURTHINCLUDE  :=  "PERVAR" 
&SET.VAR  MESSAGE  :=  "9117" 
&END 
&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C8  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "PB118" 
&SET_VAR  INCLUDEFILE  :=  "PERBAR" 
&SET_VAR  SECONDATA  :=  "NB118" 
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&SETJ7AR  SECONDINCLUDE  :=  "NORBAR" 
&SET_VAR  THIRDATA  :=  "VB118" 
&SET_VAR  THIRDINCLUDE  :  =  "VERBAR" 
&SETJ/AR  FOURTHDATA  :=  "PV118" 
&SET_VAR  FOURTHINCLUDE  :  =  "PERVAR" 
&SETJ/AR  MESSAGE  :=  "9118" 
&END 
&IF  %COSTCEN%%PLOTCODE%%PLOTOPT%  =  1C9  &THEN 
&DO 

&SET_VAR  DATAFILE  :=  "PB119" 
&SET_VAR  INCLUDEFILE  :=  "PERBAR" 
&SET_VAR  SECOMDATA  :=  "NB119" 
&SET_VAR  SECONDINCLUDE  :=  "NORBAR" 
&SET_VAR  THIRDATA  :=  "VB119" 
&SET_VAR  THIRDINCLUDE  :=  "VERBAR" 
&SET_VAR  FOURTHDATA  :=  "PV119" 
&SET_VAR  FOURTHINCLUDE  :=  "PERVAR" 
&SETJ/AR  MESSAGE  :=  "9119" 
&IF  %SECONDINCLUDE%  =  ' '  &THEN  R  SINGLE  %DATAFILE%  %INCLUDEFILE% 
&ELSE  &IF  %SECONDATA%  =  ' '  &THEN 

R  DOUBAR  %DATAFILE%  %INCLUDEFILE%  %SECONDINCLUDE% 
&ELSE  &IF  %THIRDINCLUDE%  =  ' '  &THEN 

R  DOUBLE  %DATAFILE%  %SECONDATA%  %INCLUDE%  %SECONDINCLUDE% 
%SECONDINCLUDE% 

&ELSE  &IF  %FOURTHINCLUDE%  =  ' '  &THEN 

R    TRIPLE    %DATAFILE%    %SECONDATA%    %INCLUDEFILE% 
%SECONDINCLUDE%  %THIRDINCLUDE% 

&ELSE    R    QUAD    %DATAFILE%   %SECONDATA%   %THIRDATA% 


;FOURTHDATA% 


;INCLUDEFILE%      %SECONDINCLUDE%      %THIRDINCLUDE% 


%FOURTHINCLUDE%  %MESSAGE% 
&RETURN 
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p .  FREE . CPL 
/*(FREE.CPL)  FREE  FORM  INPUT  TO  TEL-A-GRAF 

/*Allow  the  experienced  user  to  manipulate  TEL-A-GRAF  using  it's 
commands 
5.8  TAG 
&TTY 
&END 
&RETURN 

q.  SINGLE. CPL 
/*(SINGLE.CPL)  SINGLE  INCLUDE  FILE 

/*Allows  user  to  input  a  datafile  and  include  file  to  TEL-A-GRAF, 
having 

/*little  or  no  knowledge  of  TEL-A-GRAF  commands. 
&ARGS  DATAFILE;  INCLUDEFILE 
5.8  TAG 

DATA  FILE  IS  %DATAFILE%. 
INCLUDE  %INCLUDEFILE%. 
SUBPLOT  1. 
DRAW  1. 
&END 
&RETURN 


r.  DOUBLE. CPL 
/* (DOUBLE. CPL)  DOUBLE  DATA  AND  INCLUDE  FILES  /*Allows  the  user  to 
input  two  include  files  to  TEL-A-GRAF  with  little  or  no 
/^knowledge  or  experience  with  TEL-A-GRAF  commands. 
&ARGS  DATAFILE;  SECONDATA;  INCLUDEFILE;  SECONDINCLUDE 
5.8  TAG 

DATA  FILE  IS  %DATAFILE%. 
INCLUDE  %INCLUDEFILE%. 
SUBPLOT  1. 

DATAFILE  IS  %SECONDATA%. 
INCLUDE  %SECONDINCLUDE%. 
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SUBPLOT  2. 
DRAW  1  2. 
&TTY 
&END 
&RETURN 

S.  DOUBAR.CPL 
/*(DOUBAR.CPL)  DOUBLE  INCLUDE  FILES 

/*Allows  the  user  to  input  two  include  files  to  TEL-A-GRAF  with 
little  or  no 

/* know ledge  or  experience  with  TEL-A-GRAF  commands. 
&ARGS  DATAFILE;  INCLUDEFILE;  SECONDINCLUDE  5.8  TAG 
DATA  FILE  IS  %DATAFILE%. 
INCLUDE  %INCLUDEFILE%. 
INCLUDE  %SECONDINCLUDE%. 
SUBPLOT  1. 
DRAW  1. 
&TTY 
&END 
&RETURN 


t.  TRIPLE. CPL 
/* (TRIPLE. CPL)  DOUBLE  DATA  AND  TRIPLE  INCLUDE  FILES  /^Allows  the 
user  to  input  three  include  files  to  TEL-A-GRAF  with  little  or  no 
/^knowledge  or  experience  with  TEL-A-GRAF  commands. 

&ARGS  DATAFILE;  SECONDATA;  INCLUDEFILE;  SECONDINCLUDE;  THIRDINCLUDE 
5.8  TAG 

DATA  FILE  IS  %DATAFILE%. 
INCLUDE  %INCLUDEFILE%. 
SUBPLOT  1. 

DATAFILE  IS  %SECONDATA%. 
INCLUDE  %SECONDINCLUDE%. 
INCLUDE  %THIRDINCLUDE%. 
SUBPLOT  2. 
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DRAW  1  2. 
&TTY 
&END 
&RETURN 

u.  QUAD.CPL 
/*(QUAD.CPL)  QUAD  DATA  AND  INCLUDE  FILES 

/*Allows  the  user  to  input  four  include  files  to  TEL-A-GRAF  with 
little  or  no 

/^knowledge  or  experience  with  TEL-A-GRAF  commands. 

&ARGS   DATAFILE;    SECONDATA;    THIRDATA;    FOURTHDATA;    INCLUDEFILE ; 
SECONDINCLUDE;  THIRDINCLUDE ;  FOURTHINCLUDE ;  MESSAGE 
5.8  TAG 

DATA  FILE  IS  %DATAFILE%. 
INCLUDE  %INCLUDEFILE%. 
C. 

TITLE  TEXT  IS  "PERCENT  EXPENDED  %NESSAGE%. 
SUBPLOT  1. 
DATA  FILE 

INCLUDE  %SECONDINCLUDE%. 
DATA  FILE  IS  %THIRDATA%. 
INCLUDE  %THIRDINCLUDE%. 
DATA  FILE  IS  %FOURTHDATA%. 
INCLUDE  %FOURTHINCLUDE%. 
DRAW  12  3  4. 
&TTY 
&END 
&RETURN 

2.       TELL-A-GRAF  PROGRAMS 

a.     TAGPRO.DAT:  Tell-A-Graf  Profile  File 
PRIMARY  DEVICE  IS  TEKTRONIX. 
PRIMARY  DEVICE  MODEL  IS  4105. 

PRIMARY  DEVICE  DRAWING  ORDER  IS  0. 
SECONDARY  DEVICE  IS  POP. 

174 


PAGE  LAYOUT  IS  HORIZONTAL-REPORT. 
ERROR  REPORTING  LEVEL  IS  3. 
EXIT. 

b.  Bl :  Bar  Chart  For  Budget 
GENERATE  A  VERTICAL  BAR  CHART  . 

INDEPENDENT  DIVISION-LABELS  IS  '112'  '113'  '114' 

•115'  '116'   '117'   '118'  '119'  . 
INDEPENDENT  LABEL  TEXT  IS  "COST  FUNCTION"  . 
DEPENDENT  LABEL  TEXT  IS  "MILLIONS  OF  DOLLARS"  . 
AXIS  FRAME  IS  1. 

WINDOW  DESTINATION  IS   -1  6  4.099999  10. 
WINDOW  DESTINATION  FRAME  IS   0. 

TITLE  TEXT  IS  "FY  86  BUDGET  FOR"  "COST  CENTER  9110"  . 
**FILE** 

c.  EX2:  Plot  of  Budget  vs  Expense 
GENERATE  A  PLOT  . 

X  AXIS  DIVISION-LABELS  IS  "OCT"  "NOV"  "DEC"  "JAN" 

"FEB"  "MAR"  "APR"  "MAY"  "JUN"  "JUL"  "AUG"  "SEP" 
X  AXIS  GRID  IS  0. 
X  AXIS  LENGTH  IS   8.5. 
X  AXIS  LABEL  TEXT  IS  "END  OF  MONTH"  .  X  AXIS  SHIFT  IS  1. 

Y  AXIS  GRID  IS   0. 

Y  AXIS  MODE  IS  REVERSED. 

Y  AXIS  OFFSET  IS   8. 
AXIS  FRAME  IS   0. 

WINDOW  DESTINATION  IS  -1  10  -2  10. 
LEGEND  FRAME  IS  1. 
LEGEND  X  ORIGIN  IS   11. 
LEGEND  Y  ORIGIN  IS   2. 
LEGEND  UNITS  IS  COORDINATE. 
MESSAGE  1. 

MESSAGE  CONNECT  POINT  IS  0.5  -0.5.   MESSAGE  TEXT  IS 
"BUDGET  VS  EXPENSES"  "COST  CENTER  9110" 
"FOR  ALL  COST  FUNCTIONS"  . 
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MESSAGE  UNITS  IS  INCHES. 

MESSAGE  X  IS   9. 

MESSAGE  Y  IS   6. 

MESSAGE  2. 

MESSAGE  CONNECT  POINT  IS  0.5  -0.5. 

MESSAGE  TEXT  IS  "MILLIONS"  . 

MESSAGE  UNITS  IS  COORDINATE. 

MESSAGE  X  IS   10.5. 

MESSAGE  Y  IS   4. 

**FILE** 

d.  EX112:  File  Appended  to  EX2  For  9112 
MESSAGE  1  "BUDGET  VS  EXPENSES"   "FOR  COST  FUNCTION  9112". 
MESSAGE  2  TEXT  IS  "THOUSANDS". 

**FILE** 

e.  EX113:  File  Appended  to  EX2  for  9113 
MESSAGE  1  "BUDGET  VS  EXPENSES"   "FOR  COST  FUNCTION  9113". 
MESSAGE  2  IS  "THOUSANDS". 

**FILE** 

f.  EX114:  File  Appended  to  EX2  for  9114 
MESSAGE  1  "BUDGET  VS  EXPENSES"   "FOR  COST  FUNCTION  9114". 
MESSAGE  2  IS  "THOUSANDS". 

**FILE** 

g.  EX115:  File  Appended  to  EX2  for  9115 
MESSAGE  1  "BUDGET  VS  EXPENSES"   "FOR  COST  FUNCTION  9115". 
MESSAGE  2  IS  "THOUSANDS". 

**FILE** 

h.     EX116:  File  Appended  to  EX2  for  9116 
MESSAGE  1  "BUDGET  VS  EXPENSES"   "FOR  COST  FUNCTION  9116". 
MESSAGE  2  IS  "THOUSANDS". 
**FILE** 
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i.     EX117:  File  Appended  to  EX2  for  9117 
MESSAGE  1  "BUDGET  VS  EXPENSES'*   "FOR  COST  FUNCTION  9117", 
MESSAGE  2  IS  "THOUSANDS". 
**FILE** 

j.  EX118:  File  Appended  to  EX2  for  9118 
MESSAGE  1  "BUDGET  VS  EXPENSES"   "FOR  COST  FUNCTION  9118", 
MESSAGE  2  IS  "THOUSANDS". 
**FILE** 

k.  EX119:  File  Appended  to  Ex2  for  9119 
MESSAGE  1  "BUDGET  VS  EXPENSES"   "FOR  COST  FUNCTION  9119", 
MESSAGE  2  IS  "THOUSANDS". 
**FILE** 

1.  B4:  Triple  Bar  Chart,  Budget,  Budget  %,  Expense 
GENERATE  A  VERTICAL  BAR  CHART  . 
INDEPENDENT  DIVISION-LABELS  IS  '112'  '113'  '114' 

'115'   '116'  '117'  '118'  '119'  . 
INDEPENDENT  LABEL  TEXT  IS  "COST  FUNCTION"  . 
DEPENDENT  GRID  IS  1. 

DEPENDENT  LABEL  TEXT  IS  "MILLIONS  OF  DOLLARS"  . 
AXIS  FRAME  IS  0. 
TITLE  TEXT  IS  "FY  86  BUDGET  VS  EXPENSES" 

"COST  CENTER  110". 
LEGEND  FRAME  IS   1. 
**FILE** 

m.  B112:  Appends  B4  for  9112 
DIVISION  LABELS  '02'   '03'  '04'  '11'   '12'   '19' 

'30'  '33'  '39'  '68'  '91'  '93'  '96'  '97'  '98'. 
X  AXIS  LABEL  IS  "COST  CLASS". 

TITLE  IS  "FY  86  BUDGET  VS  EXPENSES"  "COST  FUNCTION  9112" 
DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 
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n.  B113:  Appends  B4  for  9113 
DIVISION  LABELS  '04'  '39'  '91'  '92'  '93'  '96'  '99'. 
X  AXIS  LABEL  IS  "COST  CLASS". 
TITLE  IS  "FY  86  BUDGET  VS  EXPENSES" 

"COST  FUNCTION  9113". 
DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 

o.  B114:  Appends  B4  for  9114 
DIVISION  LABELS  '04'   '94'  '95'. 
X  AXIS  LABEL  IS  "COST  CLASS". 
TITLE  IS  "FY  86  BUDGET  VS  EXPENSES" 

"COST  FUNCTION  9114". 
DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 

p.  B115:  Appends  B4  for  9115 
DIVISION  LABELS  '02'  '91'  '93'. 
X  AXIS  LABEL  IS  "COST  CLASS". 
TITLE  IS  "FY  86  BUDGET  VS  EXPENSES" 

"COST  FUNCTION  9115". 
DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 

q.  B116:  Appends  B4  for  9116 
DIVISION  LABELS  '03'  '04'  '91'  '93'. 
X  AXIS  LABEL  IS  "COST  CLASS". 
TITLE  IS  "FY  86  BUDGET  VS  EXPENSES" 

"COST  FUNCTION  9116". 
DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 

r.  B117:  Appends  B4  for  9117 
DIVISION  LABELS  '03'  '12'  '33'  '68'  '91'  '93'  '96'  '97 
X  AXIS  LABEL  IS  "COST  CLASS". 
TITLE  IS  "FY  86  BUDGET  VS  EXPENSES" 
"COST  FUNCTION  9117". 
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DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 

s.  B118:  Appends  B4  for  9118 
DIVISION  LABELS  '91'  '93'. 
X  AXIS  LABEL  IS  "COST  CLASS". 
TITLE  IS  "FY  86  BUDGET  VS  EXPENSES" 

"COST  FUNCTION  9118". 
DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 

t.  B119:  Appends  B4  for  9119 
DIVISION  LABELS  '04' . 
X  AXIS  LABEL  IS  "COST  CLASS". 
TITLE  IS  "FY  86  BUDGET  VS  EXPENSES" 

"COST  FUNCTION  9119". 
DEPENDENT  LABEL  TEXT  IS  "THOUSANDS  OF  DOLLARS". 
**FILE** 

u.  PERBAR:  Bar  Chart  Percent  Expended 
GENERATE  A  VERTICAL  BAR  CHART. 
INDEPENDENT  DIVISION-LABELS  IS  'ELPSED'   ' STD  TIME' 

'OVERTIME'  'MATERIAL'  'OTHER'  'TOTAL'. 
DEPENDENT  SCALE  MAXIMUM  IS  100. 
DEPENDENT  SCALE  MINIMUM  IS  0. 
DEPENDENT  SCALE  STEP-SIZE  IS  20. 
DEPENDENT  LABEL  TEXT  IS  "PERCENT". 
TITLE  TEXT  IS  "PERCENT  EXPENDED". 
BAR  ROOT  IS  0. 
AXIS  FRAME  IS  1. 
X  AXIS  ORIGIN  1.5,  LENGTH  9. 
Y  AXIS  LENGTH  1.25,  ORIGIN  6.25. 
SUBPLOT  1. 
**FILE** 
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v.  NORBAR:  Bar  Chart  Normalized  for  Elapsed  Time 
GENERATE  A  VERTICAL  BAR  CHART. 
INDEPENDENT  DIVISION-LABELS  IS  'ELAPSED'   ' STD  TIME' 

'OVER  TIME'  'MATERIAL'  'OTHER'  'TOTAL' 
TITLE  TEXT  IS  "DATA  NORMALIZED  ON  PERCENT  ELAPSED  TIME". 
BAR  ROOT  IS  1. 
X  AXIS  ORIGIN  1.5,  LENGTH  9. 

Y  AXIS  LENGTH  =  1.25,  ORIGIN  =  4.25. 

Y  GRID  ON. 

AXIS  FRAME  IS  1. 
SUBPLOT  2. 
**FILE** 

w.  VARBAR:  Bar  Chart  Variance  in  Dollars 
GENERATE  A  VERTICAL  BAR  CHART. 
INDEPENDENT  DIVISION-LABELS  IS  'ELAPSED'   'STD  TIME' 

'OVERTIME1  'MATERIAL'  'OTHER'  'TOTAL'. 
INDEPENDENT  GRID  IS  1. 
DEPENDENT  LABEL  TEXT  IS  "DOLLARS". 
TITLE  TEXT  IS  "VARIANCE  IN  DOLLARS". 
BAR  ROOT  IS  0. 
X  AXIS  ORIGIN  1.5,  LENGTH  9. 

Y  AXIS  LENGTH  =  1.25,  ORIGIN  =  2.25. 
AXIS  FRAME  IS  1. 

SUBPLOT  3. 
**FILE** 

x.  PERVAR:  Bar  Chart  Percent  Variance 
GENERATE  A  VERTICAL  BAR  CHART. 
INDEPENDENT  DIVISION-LABELS  IS  'ELAPSED'   'STD  TIME' 

'OVERTIME'  'MATERIAL'  'OTHER'  'TOTAL1. 
INDEPENDENT  GRID  IS  1. 
INDEPENDENT  LABEL  TEXT  IS  "PERCENT". 
TITLE  TEXT  IS  "PERCENT  VARIANCE". 
X  AXIS  ORIGIN  1.5,  LENGTH  9. 

Y  AXIS  LENGTH  =  1.25,  ORIGIN  =  .25. 
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BAR  ROOT  IS  0. 
AXIS  FRAME  IS  1. 
SUBPLOT  4. 
**FILE** 

y.  B110:  Data  File  for  Bl 
INPUT  DATA. 
"BUD86" 

1  0.77287  2  2.13234  3  4.33018  4  0.05306  5  0.27409  6  1.48263 
7  0.0898  8  0.507 
END  OF  DATA. 
**FILE** 

z.  BE110:  Data  File  for  EX2 
INPUT  DATA. 
"BUDGET". 

0  0  1  0.8035  12  9.64198 
"EXPENSES" 

0  0  1  0.92  2  1.59901  3  2.4567  4  3.3456  5  4.0002  6  4.78999  7 
5.477  8  6.008  9.2  6.91127 

END  OF  DATA. 
**FILE** 

aa.  BBE110:  Data  File  for  B4 
INPUT  DATA. 
"BUDGET" 

1  0.77287  2  2.13234  3  4.33018  4  0.053063  5  0.274093  6  1.48263 
7  0.0398  8  0.507 

"BUDGET%" 

1  0.60284  2  1.66322  3  3.37754  4  0.04139  5  .21379  6  1.15645  7 
.07005  8  0.39546 

"EXPENSES" 

1  0.69411  2  1.3034  3  3.31009  4  0.04487  5  0.21733  6  1.10264  7 
0.0665  8  0.17234 
END  OF  DATA. 
**FILE** 
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ab.  PB110:  Data  File  for  Perbar 
INPUT  DATA. 

"PERCENT" 

1,20 

2,20 

3,45 

4,18 

5,17 

6,19 

END  OF  DATA. 

**FILE** 

ac.  NB110:  Data  File  for  Norbar 
INPUT  DATA. 

"NORMAL" 

1,1 

2, .95 

3,2.2 

4,0.7 

5,0.55 

6,0.75 

END  OF  DATA. 

**FILE** 

ad.  VB110:  Data  File  for  Varbar 
INPUT  DATA. 

"VARIANCE" 

1,0 

2,-3000 

3,1000 

4,-10000 

5,-70500 

6,-79980 

END  OF  DATA. 

**FILE** 
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ae.  PV110:  Data  File  for  Pervar 

INPUT  DATA. 

"PERCENT  VARIANCE" 

1,0 

2,-5 

3,110 

4,-35 

5,-41 

6,-30 

END  OF  DATA. 

**FILE** 
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APPENDIX  E 
C  PROGRAMS  FOR  THE  MICROCOMPUTER 

1.       CCA.C 

9  include  "colors. h" 
^include         "ctype.h" 

* include  "f iledata.h" 

8 include  "intregs.h" 

#include  "stdio.h" 

/*  Global  Variables  */ 
»define  BACKGRND  BLUE     /*  Background  color  */ 
Sdefine  FOREGRND  YELLOM   /*  Foreground  color  */ 
^define  FORTY   0  /*  Code  for  forty  column  mode  */ 

Sdefine  EIGHTY   2  /*  Code  for  eighty  column  mode  */ 

extern  getbud( )) 
extern  get  tot f(  )> 
extern  gettotcl  )j 
extern  gettotfcl  )\ 
extern  getempjo(  i\ 
extern  getempi  )\ 
extern  getfemp(  )» 
extern  getmgr(  )\ 
extern  getana(  )  \ 
extern  getjoempC  )\ 
extern  getjoemal  )\ 
extern  getf jo(  )) 
extern  getc jo(  1 i 
extern  gethourC  )} 
extern  getlabf  )i 
extern  get mat!  H 
extern  getoth( )\ 
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struct  filsdata  filstrucj 
long  int  _stack  =  20000) 

ffinclude   "orcainp" 


main! ) 


char 


/*  1  main  begin  */ 

char  select i 256  1, 

*hdrj 

names [ 21 1$ 
cfno[5l» 
clno[5l> 
jonoI51» 

jnamet  50  1  \ 

char  *budget[100h 


int  if  j,  pg 

inpltl 
inp2[l 
inp3tl 
inp4[l 
inpStl 
inpbtl 
inp7ll 


pflag,  plines,  inp[li,  lines*  nlines, 


short  curs[2][32l» 


/*  Ida  and  three  cursors  */ 


/^IHHHHHHHHHHHHBBHBHHHHt^jHHHHBHHHHHHHBHHBHBHHHHHHHHHHBHBHHHHHt/ 


/* 
/* 
/* 
/* 
/* 
/* 
/* 


program  module  Cost  Center  Analysis 
version  1.0 
authors:   Richard  N.  Woodman 
Michael  F  Rail 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
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/* 
/* 


Program  last  modified  20  January  1986 


/*     This  program  was  produced  on  an  IBM  PC  using 

/*  DOS  3.1.   Written  with  the  C  programming  language* 

/*  utilizing  the  Graphic  utility  software. 

/* 

/*  Main  modulej  controls  entry  to  the  Cost  Center 

/*  Information  modules  or  to  the  Command  Level  Entry 

/*  mode. 

/* 

/* 

/* 

/*  Input/Output  Files  used:   None 

/* 

/»  Other  Modules  Called:  COMDLEV,  CCI 

/* 

/*  Called  by:   None 

/* 

/*  Local  Variables:   inp 


*/ 
*/ 
*/ 
*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


setscmodi  EIGHTY ) \ 
clscolort  F0REGRN0 .BACKGRND ) t 
border*  BACKGRNOH 
/*        */ 

inpltOl  =  '  0'» 

inp2tC)  =  '  0'i 

inp3(0l  ■  •  O'l 

inp4(01  =  '  0'> 

inp5(0l  s  <  o'i 

inp6l0l  ■  •  0'» 

inp7[0l  =  '  0'j 

clear thescreent  )v 
clscoloH  l<+>3  >  i 
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clearkbdt  n 


ritebordert  I \ 


do 


/*   4     */ 

clearkbdt  )t 
inptO]  =  '  O'i 

curlocatl 4,1 )) 

colrcprtt  "COST  CENTER  ANALYSIS  ",14,3)) 
cur locatl  6,1 )) 

colrcprtt "1.   Cost  Center  Information  "  ,14,3)) 
curlocatl 8,1)) 
colrcprt("2.   Cost  Center  Information  Using  ",14,3)) 
curlocat( 9,1 )) 
colrcprtl "Oracle  Command  Language  (SQL)  For  Adhoc"  ,l>+,3  t  v 
curlocatl 10,1  )  i 
colrcprtt "Queries,  Inserts,  Deletes  and  Updates", 14,3  )  ) 
curlocatl  1"+  ,  1  )  \ 

colrcprt ("Select ion:    ",14,3)) 
curlocatl 16,1 )) 
colrcprtt "A  blank  line  exits  to  DOS   ",14,31) 

curlocat(  14,<+5)l 

getintl l»l,l,l,2,&inp,0,l,3  )) 

if  (inp[0l  !=  '  0'  ) 


curlocatl 15,1)) 
colrcprt( "Is  this  correct? 
curlocatl 15,45)) 
i  =  ecoyesno( 15,45,1 )) 


",14,3)) 


if  (inp[0l  ==  ■  0' ) 
i  =  1) 

while  ( i  !=  1)  ) 
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cur locat( 14,45 )» 
/*      */ 
if  (inp[0]  ==  '  0')  goto  done* 

if  (inp[0]  ==  1) 

/*  Logon  to  ORACLE  */ 

if  (olon(curs[0]» "system/manager", -1,-1 ,-1,0) ) 
/*  2       */ 
errrpt ( curs [ 0 1 ,4 ) \ 
goto  done* 

/*   2     */ 

/)HHBBHHBHHHBHHHHHHHBHHHHHHHBHHHHHHHBHHHBHBHHHHHHHHHHHHHHHHHt/ 

/*  program  module  Cost  Center  Information  */ 

/*  version  1.0                      */ 

/*  authors:   Richard  N.  Woodman               */ 

/*  Michael  F  Rail                   */ 

/*  */ 

/*  */ 

/*  */ 

/*  Program  last  modified  20  January  1986        */ 

/*  */ 

/*  This  program  was  produced  on  an  IBM  PC  using          */ 

/*  DOS  3.1.   Written  with  the  C  programming  language »     */ 

/*  utilizing  the  Graphic  utility  software.               »/ 

/*  */ 

/*  Main  menu  driven  shell  for  Oracle.   Allows  easy  access  */ 

/*  to  specified  information  and  display  of  that  informa-  */ 

/*  from  Oracle.   Also  sends  specified  data  to  a  file  for  */ 

/»  the  Graphics  utilities.                             */ 

/*  */ 

/*  Output  files:   GRAF,  GRAF1,  BUD                       »/ 

/*  */ 

/*  Modules  called:   BUD_EXP,  EMPINFO,  JOINFO              */ 


188 


/* 

/*  Called  by:  CCA 

/* 

/*  Local  Variables:   inpl 


*/ 
«/ 
*/ 
*/ 


/iBBBHHHHHHHBHHHBHWHHBHHHHBHHHHHHHHHHHHHBBBHBHHHHHHHHHBHHHHHt/ 


for  (it) 


clearkbd(  )t 

/*   4     */ 

clearkbdt  )t 
inpllOl  =  '  O't 


/*  3  begin  main  while  statement  */ 
clear these reen( ) t 
clscolor( 14,3  )t 
riteborderl )t 


do 


curlocatt  4,1 ) t 

colrcprt( "INFORMATION  AVAILABLE  ",14,3  )t 

curlocatl  6,1 )t 

colrcprtC'l.   Budget  VS  Expenses  ",14,3)) 

curlocatl 10,1 )t 

colrcprt("2.   Job  Order  Information  ",14,3)t 

curlocatl 14,1 )  i 

colrcprt( "Selection:    ",14,3)t 

curlocatl 16,1 )  t 

colrcprtC'A  blank   line  exits  ",14,3 )t 

curlocat( 14,45 )t 

getintt l,l,l»l,2,8inpl,0,l,3) t 

if   ( inpltOl    !=    '    0"  ) 

curlocatl 15,1  )t 
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colrcprt( "Is  this  correct? 

",14,3  )> 

curlocatf 15,45)) 

i    =   ecoyesnoi 15,45,1 ) \ 

if   (  inpKOl   ==    '    0'  ) 
i   =   1> 

while  (i   !=  lit 

curlocatl 14,45 )t 
/*  */ 

if   (inpllOl  ==    '    0")  break! 

JWWWUMVmwm/MUVWMWMWUWUUVIUUUUWWUUMMMWMUWUMW\/WWWm/WMM\<MMWMS<UWM       / 

/*                                        program  module  Budget  vs  Expenses  */ 

/*                   version  1.0  */ 

/*            authors:   Richard  N.  Woodman  */ 

/*                     Michael  F  Rail  */ 

/*  */ 

/*  */ 

/*  */ 

/*          Program  last  modified  20  January  1986  »/ 

/*  */ 

/*  This  program  was  produced  on  an  IBM  PC  using  */ 

/*  DOS  3.1.   Written  with  the  C  programming  language,  »/ 

/*  utilizing  the  Graphic  utility  software.  */ 

/*  */ 

/*  Allows  display  and  comparison  of  budget  and  actual  */ 
/*  expense  information  by  various  categories.   Interfaces  */ 

/*  specified  data  with  graphics  for  further  displays.  */ 

/*  */ 

/*  Output  files:   GRAF,  GRAF1,  BUD  */ 

/*  */ 

/*  Modules  called:   GETBUD,  INDVDISP,  TOTBU0EXP  */ 

/*  */ 
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/*  Called  by:   CCI  */ 

/*  */ 

/*  Local  Variables:   inpZ  */ 

if  (inpltOl  ==  1) 
for( ) ) ) 


clearkbdt  >i 


",14,3)) 


clear thescreenl )) 
clscolort 14,3 )) 
riteborder( ) v 
do 


curlocatl  <+,  1  t\ 

colrcprte "BUDGET  VS  EXPENSES  ",14,3)) 

cur locate  6,1)) 

colrcprt("l.    Total   Budget   VS   Expenses   to   Date 

cur locate  8,1)) 

colrcprt("2.   Labor  or  Material  or  Other  " ,14,3)) 
cur locate  10,1 )\ 
colrcprt("3.   Budget  by  Cost  Func/Cost  Class", 14, 3  )) 
cur locate 14,1)> 

colrcprte  "Selection:      M4,3)) 
curlocat(  16,1 )  \ 

colrcprtC'A  blank  line  exits  ",14,3)) 
cur locatl 14,45)) 
getinte  l,l,l,l,2,4inp2,0,l,3 )) 
if  (inp2t0l  !=  '  0'  ) 

cur locate  15,1)) 
colrcprte "Is  this  correct?  ",14,3)) 

cur locate  15,45)) 
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i  =  ecoyesnol 15>45»1)> 

if  (inp2[0l  ==  •  0'  ) 

i  =  U 
/*      END  DO  LOOP  FOR  2ND  MENU  IF  MENU  1=1    */ 
while  ( i  !=  1), 


/*      */ 

if  (inp2[0l  ==  '  0' )  break* 

/iHHBHHHHHHBBHHHHHHHHHHHHBHBHBBHHBBBHHHBHHHHBHHHHHHHBHHHHHBBt/ 

/*  program  module  Total  Budget  vs  Expenses*/ 

/*  version  1.0                      */ 

/*  authors:   Richard  N.  Woodman               */ 

/»  Michael  F  Rail                   */ 

/*  */ 

/*  */ 

/*  */ 

/*  Program  last  modified  20  January  1986        */ 

/*  */ 

/*  This  program  was  produced  on  an  IBM  PC    using       */ 

/*  DOS  3.1.   Written  with  the  C  programming  language*     */ 

/*  utilizing  the  Graphic  utility  software.               »/ 

/*  */ 

/*  Sums  labor,  material  and  other  for  budget  and  expenses  */ 

/*  to  date  by  cost  function*  cost  class*  cost  function/   */ 

/*  cost  class  and  cost  center  as  requested  and  sends  data  */ 

/*  to  graphics  routine  when  directed.                   */ 

/*  */ 

/*  Output I   GRAF,  GRAF1,  BUD                            */ 

/*  */ 

/*  Modules  called:   GETTOTF,  GETTOTC,  GETTOTCF,  GETSUM    */ 

/»  */ 

/*  Called  by:  BUD_EXP                                   */ 

/*  */ 

/*  Local  Variables:   inp3                                 */ 
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if  Iinp2l0]  ==  1) 


f or(  i  \  ) 


clearkbdl  M 


clearthescreent  )y 
clscolori  l<+,3  M 
ritebordert  )j 
do 


curlocatt 4,1)) 

colrcprt( "TOTAL  BUDGET  VS  EXPENSES  ",14,3 )» 

curlocatf 6,1 )) 

colrcprtfl.   Cost  Function  ",14,3)j 

curlocatt 8,1  1 1 

colrcprt("2.   Cost  Class  ",14,3)j 

curlocatt 10,1  )i 

colrcprtt"3.   Cost  Function  Cost  Class  ",14,3 H 

curlocatt 12>1)) 

colrcprtt"4.      Cost  Centar     ",W,3)j 

curlocatt  1<+,1  )  i 

colrcprtt "Selection:  ",14,3 )> 

curlocatt 16,1)} 

colrcprtCA  blar*   line  exits      ",14,3U 

curlocatt 14,45 ) \ 

getintt l,l,l,l,2,£inp3,0,l,4 ) i 

i-f   tinp3C0]    !=    '   0'  ) 


curlocatt 15,1)) 
colrcprtt "Is  this  correct? 
curlocatt 15,45 ) \ 
i   =  ecoyesnot 15,45,1 H 


",14, 3)) 
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if  (inpStOl  ==  '  0") 
i  =  1» 

while  (i  !=  11) 
if  <inp3t0l  ==  '  0')  breakj 

clscolor < FOREGRND .BACKGRND ) \ 

curloeatf 15,15)) 

colrprtst "Total  Budget  VS  Expenses  in  Thousands  of  Dollars", 

FOREGRND ,BACKGRND ) ) 
pause!  )\ 

if  (inp3(0l  ==  1) 


hdr  =  "  COST  FUN     BUDGET 
In  Thousands   " i 

strcpy<  select ,  selbt'unH 
gettotfl select,  hdr,  curs  )  v 


EXPENSE 


if  (inp3t0l  ==  2) 


hdr  =  "  COST  CLS     BUDGET 

In  Thousands    "\ 
strcpyC select,  selbcl)) 

gettotc( select,  hdr,  curs)) 


EXPENSE 


if  (inp3[0l  ==  3) 


hdr  a  "  COST  FUNC    COST  CLS 

In  Thousands   ") 
strcpyt select,  selbcfcD) 
gettotfc( select,  hdr,  curs  M 


BUDGET 


EXPENSE 


if  ( inp3t0l  ==  4) 
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hdr  =  "COST  CENTER  9110   BUDGET        EXPENSE 

DATE     In  Thousands      "j 
strcpyf select ,  selsum), 
get sum ( select »  hdr >  curs)) 


/WHHHHHBBBHHHHHHBHHBHHHBHHHHBHHBHHHHHBHHHHHHHHBHBHHBHBHHBHBt/ 

/*  program  module  INDVDISP               */ 

/*  version  1.0                      */ 

/*  authors:   Richard  N.  Woodman               »/ 

/*  Michael  F  Rail                  */ 

/*  */ 

/*  */ 

/*  »/ 

/*  Program  last  modified  20  January  1986        */ 

/*  */ 

/*  This  program  was  produced  on  an  IBM  PC    using        */ 

/*  DOS  3.1.   Written  with  the  C  programming  language*     */ 

/*  utilizing  the  Graphic  utility  software.              »/ 

/*  »/ 

/*  Display  budget  vs  expenses  to  date  for  either  labor*   */ 

/*  material  or  other*  sorted  by  Cost  Function/Cost  Class.  */ 

/*  »/ 

/*  Input/Output  files:   None                           */ 

/*  */ 

/*  Module*  Called:   GETLAB,  GETHOUR,  GETMAT,  GETOTH       */ 

/*  */ 

/*  Local  Variables:   inp4                              */ 

if  (inp2[0l  ==  2) 
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f  or(  )  ) ) 


clearkbdt  )\ 


clear thescreenl  )) 
clscolor( 14,3 )» 
riteborderl  )  \ 
do 


eurlocatl 4,1 )\ 

colrcprt("  BUDGET  VS  EXPENSES  ",14,3)) 

eurlocatl 6,1 )\ 

eolrcprtCl.  HOURS  ",14,3)) 

eurlocatl  8,1  )) 

colrcprt("2.   LABOR  ",14,3)) 

eurlocatl 10,1)) 

colrcprt("3.   MATERIAL         ",14,3 )) 

eurlocatl 12,1 )) 

colrcprt("4.   OTHER  ",14,3)) 

cur locatt 14,1)) 

colrcprt( "Selection:      ",14,3 )) 

eurlocatl 16,1)) 

colrcprtC'A  blank  line  exits  ",14,3)) 

cur locate  14,45)) 

getintl 1, 1,1,1, 2, &inp4, 0,1,4)) 

if  (inp4l0l  !=  '  0'  ) 

eurlocatl 15,1)) 

colrcprtl "1$  this  correct?" 

,14,3)) 
eurlocatl 15,45)) 
i  =  ecoyesnol 15,45,1)) 

if  (inp4[0l  ==  ■  0' ) 
i  =  1) 
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while  (i  !■  1)) 

if  <inp4(0]  ■■  '  0')  break) 

clscolor < FOREGRND ,BACKGRND  ) > 

cur locat( 15,15 H 

colrprtsC  Budget  VS  Expense*  in  Thousands  of  Dollars" » 

FOREGRND ,BACKGRND ) ) 
pause ( )) 


if  (inp4l0l  «  1) 

hdr  *  "  HOURS:  COST  FUN  COST  CLS 

BUDGET  EXPENSE 

strcpy( select »  selhour)) 
gathouH select »  hdr,  curs)) 

if  (inp4[0l  «a  2) 

hdr  *  "  LABOR:  COST  FUN  COST  CLS 

BUDGET  EXPENSE  In  Thousands") 

s trcpyl select,  sellab  )  \ 
get lab ( select*  hdr,  curs)) 

if  (inp4[0l  aa  3) 

hdr  =  "  MATERIAL:  COST  FUNC  COST  CLS 
BUDGET.  EXPENSE  In  Thousands    ") 

strcpyl select »  selmat)) 

getmatt select,  hdr,  curs)) 

if  (inp4[0J  ==  4) 
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hdp  =  M  OTHER:  COST  FUNC  COST  CLS 
BUDGET  EXPENSE  In  Thousands" > 

•irepyl select ,  seloth)* 
getothC select ,  hdr,  curs)) 


if  Cinp2(0l  »  3) 

clscolor < FOREGRND ,BACKGRND ) » 

cur locat( IS , 20 ) | 

colrprts( "Budget  By  Cost  Function  Cost  Class 

in  Thousands  of  Dollar*" , FOREGRND, BACKGRND  )\ 
pause! )\ 

for  (j  =  Z\   j  <  10*  j++) 

strcpyC select,  selfun)* 
strcat( salact ," ■ 911" ) » 
if  Ij  ■■  2) 


hdp  »  "9112  COST  CL        LABOR 
OTHER      IN  THOUSANDS     "» 
strcatl salact, "2" )» 


MATERIAL 


if  <j  «  3) 


hdr  =  "9113  COST  CL        LABOR       MATERIAL 

OTHER      IN  THOUSANDS") 
strcat( salect, "3" )» 


if  (j  ==  <►) 


hdr  =  "9114  COST  CL 


LABOR 
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MATERIAL 


OTHER      IN  THOUSANDS") 
strcat( select,"*")) 


if  (j  ==  5) 


hdp  s  "9115  COST  CL        LABOR 

OTHER       IN  THOUSANDS") 
•trcatt select, "5")) 


MATERIAL 


if  (j  "  6) 


hdr  >  "9116  COST  CL         LABOR       MATERIAL 

OTHER        IN  THOUSANDS") 
street! select, "6")) 


if  (j  a=  7) 


hdr  ■  "9117  COST  CL  LABOR  MATERIAL 

OTHER  IN  THOUSANDS") 

••treat!  select,  "7")) 


if    (j    as   8) 


hdr  =  "9118  COST  CL        LABOR       MATERIAL 

OTHER  IN  THOUSANDS") 

street! select, "8")) 


if  (j  «  9) 


hdr  »  "9119  COST  CL        LABOR       MATERIAL 

OTHER  IN  THOUSANDS") 

street! select,"9")) 


street! select, )) 

getbud! select,  hdr,  curs)) 
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/*  END  3RD  MENU  4.  IF  ■  4  »/ 

/*  END  SECOND  MENU  FOR  LOOP         »/ 
/*  END  1.  BUDGET  AND  EXPENSE  IF  LOOP  FROM  SECOND  MENU  »/ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/*                program  module  Job  Order  Information  */ 

/*                     vara  ion  1.0  »/ 

/*            authors:   Richard  N.  Woodman  »/ 

/»                   Michaal  F  Rail  »/ 

/»  »/ 

/*  »/ 

/»  »/ 

/*          Program  last  modified  20  January  1986  */ 

/»  »/ 

/»  This  program  was  produced  on  an  IBM  PC    using  */ 

/»  DOS  3.1.   Written  with  the  C  programming  language*  */ 

/ft  utilizing  the  Graphic  utility  software.  ft/ 

/»  »/ 

/ft  Displays  the  a  Job  Order >  Job  Orders  «/ 

/ft  under  a  Cost  Function »  and  Job  Orders  under  a  Cost  ft/ 

/ft  Class.  »/ 

/»  «/ 

/ft  Input/Output  Files:   None  */ 

/»  */ 

/ft  Modules  Called:   GETJOEMP,  GETJOEMA,  GETFJO,  GETCJO  «/ 

/»  »/ 

/ft  Called  by:  -CCI  ft/ 

/»  */ 

/*  Local  Variables:   inp7  »/ 
/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

if  (inpl[0l  ==  2) 

/*   main  menu  choosa  3   */ 
for( » >  ) 
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clear thescreen( )) 
clscolor( 14,3)) 
ritebordere  )) 


inptO]  =  '  0'\ 


clearkbdl )> 
inpTtOl   a    '    0') 


cur locate  4,1)) 

,eolrcprt( "JOB  ORDER  INFORMATION  ",14,3) I 
cur locat( 8,1)) 
colrcprtC'l.   Input  Cost  Function  * 

Find  Job  Orders", 14,3 )) 
cur locate  10,1)) 
colrcprt("2.   Input  Cost  Class  *  Find 

Job  Orders", 14,3  I V 
cur locatt 14,1)) 

eolrcprtt "Selection:      ",14,3 )) 
cur locatl 16,1)) 

colrcprtC'A  blank  line  exits  ",14,3)) 
cur locat( 14,45)) 

get inte 1, 1,1,1, 2, ftinp7, 0,1,4)) 
if  (inp7t0l  !«  '  0') 

cur locate  15,1)) 

colrcprte "Is  this  correct? 

",14,3)) 
cur locate  15,45)) 
i  *  acoyesnoe 15,45,1)) 

if  (inp7(0l  ==  ■  01) 
i  =  1) 
/*  END  DO  LOOP  FOR  MENU  IF  MENU  1=3   */ 
while  (i  !=  1)) 
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euplocat(14,45)» 
/*      */ 
if  Iinp7(0]  s»  '  0')  bpeaki 

clscolor< FOREGRND .BACKGRND  )  i 
cup locate  15,20 )> 

colrprtsC   JOB  ORDER  INFORMATION   ", FOREGRND , BACKGRND  ) » 
)! 


if  Cinp7l0]  ■■  1) 


for  ( | ) ) 


clearkbdl  U 


/»  b«gin  fop  statement  */ 
clear thescreanl  )\ 
clscolor(  14,3  )\ 
ritebor-dapf H 
do 


curlocatl  6,1 )» 

colpcprt ("INPUT  THE  COST  FUNCTION  NUMBER  ",14,3)» 

cuplocatJ 10,1 )  \ 

colrcpptl "Selection:  ",14,3 H 

cup locat( 16,1 )» 

colrcpriC'A  blank  line  exits   ",14,3)) 

cuplocatf 10 ,45 ) t 

gates -tr(  20 , 1 , 1 , 1 , 2 ,  ic-f  no  ,0  )  > 

if  (cfno[0l  !=  '  0') 

cup loeat( 12,1)1 

colrcprt( "Is  this  coprect?" 
,14,3)» 
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curlocatl 12*45)) 

i  *  ecoyesnol  12,<+5»1  )) 

if  (cfnolOl  ==  •  0') 
i  =  1» 

while  (i  !■  1)| 
if  (cfnoIOl  ■«  •  0*)  break* 

hdr  =  "  Cost  Function       Job  Order  Number 

strcpy( select,  selfjo)* 
•treat (select >"'")> 
s treat <  select ,cf no ) v 
strcat( select,"' ") > 
getfjo( select,  hdr,  eurs)> 

/*     end  of  or  if  loop  »  1  for  menu  2-2  »/ 
/*   end  of  employee  menu  for  loop  */ 

if  (inp7[0l  ==  2) 


for  (it) 


clearkbdl  )» 


/*  begin  for  statement  */ 
clear thescreen< )> 
clsco lor( 14,3 )) 
riteborder(  H 
do 


curlocat(6»l)| 

colrcprtl "INPUT  THE  COST  CLASS  NUMBER  ",14,3)» 

curlocatl  10.1H 

colrcprtl "Selection:  ",14,3 )» 
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cup  locat(  16  »1H 

colrcpriC'A  blank  line  exits 

cur locat(  10 ,45 )» 

getcstr< 20,1,1 ,1 ,2,£clno,0 H 
if  (clnolOl  !=  •  0') 


,14,3)J 


"» 


cup locat( 12 ,1)» 
colrcpptCIs  this  coppact? 

euplocatf 12,45)» 

i  =  ecoyesno(  12,<+5,1  M 


if  (clnolOl  ==  '  0') 
i  »  1> 

while  (i  !=  1)» 


if  (clnoCOl  ==  •  0')  breaM 


ndp 


Cost     Class 


Job     Order     Number 


strcpyl select ,  selcjo)) 
stpcat(  select,""^ 
s treat ( select ,clno ) \ 

stpcatt select, )) 

getfjof select,  ndp,  curs  )  v 

/*  end  of  op  if  loop  =  1  fop  menu  2-2  */ 
/*   end  of  employee  menu  fop  loop  */ 


/*   end  of  for  loop   */ 

/*    end  of  if  =2  employee 

/*   END  FIRST  MENU  FOR  LOOP   */ 


*/ 


204 


/*     End  Main  Menu  If  Inp  ==  1  */ 

/XXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/*                program  modula  UFI  «/ 

/*                     version  1.0  */ 

/*                             authors:   Richard  N.  Woodman  */ 

/*                     Michael  F  Rail  */ 

/*  */ 

/»  */ 

/*  */ 

/*                       Program  last  modified  20  January  1986  */' 

/*  */ 

/*     This  program  was  produced  on  an  IBM  PC    using  */ 

/*  DOS  3.1.   Written  with  the  C  programming  language*  */ 

/*  utilizing  the  Graphic  utility  software.  »/ 

/»  */ 

/*  Calls  User  Friendly  Interface  to  allow  the  user  to  */ 

/*  make  Adhoc  queries*  updates*  and  deletes.  */ 

/*  */ 

/»  Input/Output  Files:  None  */ 

/»  */ 

/»  Modules  called:  User  Friendly  Interface  */ 

/*  */ 

/*     Called  by:  CCA  */ 

/*  */ 

/»  Local  Variables:   None  */ 
/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

if  (inpCOl  «  2) 

clsco lor ( 14 >3)) 

i  =  doscmdC'ufi  system/manager")* 
/*  End  Main  Menu  If  Inp  ==  2  */ 

done: 
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/*  Close  the  budget  cursor  */ 

oclose( curst ll)| 

/*  Free  the  budget  array  */ 

for(i=Oi  i  <  50 »  i++)  f real  budget [ i ] ) \ 

if  (pflag)  lprtff(  )| 

setscfflodt EIGHTY)  | 

bordertBACKGRNDU 

clscolor ( F0REGRN0 .BACKGRNO )  » 

/*  Log  off  from  ORACLE  */ 
ologof ( curs [ 01)) 

/»  main  end  */ 
curlocatl l»il) 

colrprts( title ,FOREGRN0 ,BACKGRND ) \ 
returns 


riteborderl ) 

int  xt 

nextline( 2)\ 

colrcprtl "?????????????????????????????????????????" t 

14,3)} 
printfC  n")» 
for  (x  a  0)  x  <=  13»  x++) 

colrcprtC?  ?",14,3H 

printfC  n")| 

colrcprtl "?????????????????????????????????????????" > 

14,3)* 
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nextline( line ) 


int  yj 

for  <y  =  0»  y  <=  lino)  y*+) 
printfC  n")i 


elearthascreenf  ) 


int  z\ 


for  iz  a  <*\  z  <   17*  z*+) 
clrmsg<z>20,38H 


writef(line) 

char  line! 811) 

/»  Hritefile  writes  the  output  of  Oracle  to  a  file  called  graf  */ 

FILE  Moutfile,  Kfopanl )» 

outfile  ■  fopen<"graf,V,a" )» 
fprintf( outfile, "Zs  n",line)> 
f close! outfile ) t 


writefK  line) 

char  line(81h 

/*  Writefilel  writes  the  output  of  Oracle  to  a  file  called  grafl  */ 

FILE  *outfile,  *fopen<  H 

outfile  =  fopen("grafl"»"a")» 
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fprintf(outfile,"Zs  n'MinaH 
fclosa(outfile)» 


writefb( line) 

char  linelBlb 

/»  Hrita-fb  writes  tha  output  of  Oracla  to  a  f ila  called  bud  */ 

FILE  *outfila,  «fopenC)» 

out-file  »  fopan("bud","a")» 
fprintf<outfile,"Zs  rVMina)) 
f close! outf ila ) | 


2.   PROJA.C 

» include  "color*. h" 
^include        "ctypa.h" 

* include  "f iledata.h" 

* include  "intregs.h" 

* include  "stdio.h" 

/»  Global  Variables  */ 
^define  BACKGRND  BLUE     /*  Background  color  */ 
Sdefine  FOREGRND  YELLOW   /*  Foreground  color  */ 
ttdefine  FORTY  0  /»  Coda  for  forty  column  mode  */ 

^define  EIGHTY   2  /*  Code  for  eighty  column  mode  */ 


» include  "orcainp" 


/XXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXXXX/ 
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/*                 program  module  get bud  »/ 

/*                                                     version  1.0  »/ 

/«            authors:   Richard  N.  Woodman  */ 

/*                                                    Michael  F  Rail  */ 

/*  */ 

/*  */ 

/*  */ 

/*                        Program  last  modified  11  December  1986  */ 

/»  */ 
/*  Purpose:   Displays  budget  summary  for  currant  fiscal   »/ 

/*  year,  by  cost  function  /  cost  class.  */ 

/*  */ 

/m     Other  modules  called:   SELFUN  */ 

/»  */ 

/*     Called  by:  BUD.EXP  */ 

/*  »/ 

/*  */ 

/*  Files  used:  NONE  */ 

/»  */ 

/*  */ 

/*     Local  variables:  clno»labor>material>other>  */ 

/*      line-80-,  *budget-100- ,  *calloc(  )\  */ 

/*              i»  2*   P9»  pflag>  plines,  lines >  nlines*  */ 

/*  */ 

/XXXXXXXXXXXXXXXXXXXXXXMXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

getbudt select »  hdr>  curs) 
char  *select> 
*hdr» 
short  curst  11321) 

/*  BEGIN  GETBUOGET  ROUTINE   */ 
char 

elno(31» 
labor I IS 1, 
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material! 15 ]> 
o*har(15l) 

char  linet80]>  *budgettlOO I,  *calloc(  )} 

int  i>  j>  pg»  pflag*  plines,  linos*  nlinest 

nlines  =  Oi 
setscmodl EIGHTY )» 

clscolor <  FOREGRND ,BACKGRND ) } 

border!  BACKGRNDH 

cuplocai( 12,23 )» 

for(i=0»  i  <  50 »  i++)  budget til  =  calloc(l»D) 

colrprtsCDo  you  want  printed  output  ( Y/N)?" , FOREGRND, BACKGRND  I  \ 

if  ( gatyasnof 1 ) ) 

/*  Initialize  the  print  variables  */ 

p-flag  a  It 

for  ( j=l»  j  <s  6>  j++)  lprtlf(  )> 

for  <j=lj  j  <=  1»  j*+)  lprtcharCO,  '  ' )» 

lprtstr(hdr)» 

lprtcH  H 

lprtlf( )» 

lprtlfC  )» 

else  pflag  =  0» 
plines  s  0^ 

elscolort  FOREGRND .BACKGRND ) t 
/*  Process  the  ORACLE  request  */ 
/*  Open  a  cursor  for  the  budget  */ 

if  < oopen< curst  1  ]  ,curst 0] ,-1,-1,-1, -1,-1 )  ) 

errrpt( curst  0 1>4)) 
goto  closet 
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/*  Retrieve  the  first  record  */ 

/•SELECT  SUM( LABOR  )  *SUM( MATERIAL  )+SUM< OTHER ) 
FROM  BUDGET  HHERE  COST_FUN_NO  =  */ 
if  (osql3(eurslll,  select,  -1)  II 
odefintcurstll,  1>  Sclno,  sizeof  clno, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odefin(  curst  1],  2,  S labor*   sizeof  labor, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odef in(cursll],  3,  ^material,   sizeof  material, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odefin(curstll,  4,  Jot her,  sizeof  other,  5,  -1,-1,-1,-1,-1,-1,-1)  II 
oexec (curst  11)  1 1 
ofetch(  curst  ID) 

if< curst  1  It 0l==4) 

cur locate  12,30), 

colrprtsC'No  Records  Selected", FOREGRND ,BACKGRND ) , 

goto  close i 


else 


errrpt  < curst  0 1*4)) 
goto  close, 


/»  Retrieve  the  remaining  records  */ 

lines  =2, 

head! hdr ) > 

while  (curstlltOl  !=  4) 

nlines  =  0* 
strcpytline,  clno)* 
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strcatdine,  "  ")) 

strcatdina,  labor )  \ 

strcatdine,  "  ")i 

strcatdina*  material )} 

strcatdina,  ■  ")) 

strcatdina,  other)) 

if  (strcmpdine,  "  ")  !=  0) 

f real  budget [nlines J ) ) 
j  s  strlendine)) 

budget [nlines]  *  calloc< j  +  1,1  )> 
strcpyt budget [nlines],  line)) 
nlines**) 


/*  Check  for  a  vary  large  entry  */ 
if  (nlines  >  21) 

clscolor < FOREGRND ,BACKGRND  ) » 

cur locatt 12,24)) 

colrprtsJ "**********Entry  exceeds  20  lines", 

FOREGRND ,BACKGRND )  ) 
cur locatf 24,21)) 
colrprts< "Press  any  key  to  continue  or  Q  to  quit", 

FOREGRND ,B ACKGRND  ) ) 
getkey( 8j  )\ 

if  ((j  ==  'q')  ||  (j  ==  'Q'))  goto  done) 
clscolor( FOREGRND ,BACKGRND ) ) 
lines  =2) 
for  (j=0)  j  <  nlines)  j++)  printf!"         'As   n", budget!  j  ] )) 
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/*  Check  for  a  full  screen  */ 
else  if  (lines  ♦  nlines  >  23) 

cur locate  24,21)) 

colrprts( "Press  any  Key  to  continue  or  Q  to  quit", 

FOREGRND .BACKGRND ) » 
getKey(Sj)) 
lines  3  z\ 

if  ((j  ■■  'q')  II  (j  ==  'Q'))  goto  done* 
clsco lor < FOREGRND , BACKGRND ) \ 
h— d(hdr)t 

/»  Check  for  a  full  page  */ 

if  (pflag  2S  Uplines  +  nlines)  >  51)) 

plines  *  0) 

i  *  (80  -  strlen(hdr))/2) 

lprtff( )) 

for  (j=l>  j  <=  6)  j++)  lprtlf(  )» 

for  (j=l»  j  <=  i\   j++)  lprtchaHO,  '  '  H 

lprtstr(hdr I  * 

lprtcrJ  >} 

lprtlf(  )» 

lprtlf()» 

/*  Print  the  lines  */ 
for(j=0*  j  <  nlines \   j++) 

curlocat( lines ,10  )  \ 

colrprts( budgetE  j ], FOREGRND , BACKGRND ) » 

if  (pflag) 
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for  (j=l»  j  <=  9»  j*+)  lprteharCO,  '  ')» 

lprtstr(  budget!  jlH 
lprtcr(  )\ 
lpptlf( )» 
plines+*> 

lines*** 

lines**) 
if  (pflag) 

lprtcrt )» 
lprtlf( )» 
plines**} 

ofateh(cursCijl) 

close: 

cur locate  24 » 20 ) I 

colrprtsC*       Press  a  key  to  continue         M» 

FOREGRND ,BACKGRND 1 \ 
pause*  )\ 

done: 

/*  Close  the  budget  cursor  */ 

oclosal curst  1  ]  )i  /*  Free  the  budget  array  */ 

for<i=0»  i  <  S0»  i*+)  free(budget[il)j 

if  (pflag)  lprtff(  )» 

setscnodC EIGHTY )» 

border(BACKGRND)) 

clscolorl FOREGRND .3ACKGRND ) \ 
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/XKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/»                                      program  module  gettotf  */ 

/*                   version  1.0  */ 

/*            authors:  Richard  N.  Woodman  */ 

/»                   Michael  F  Rail  »/ 

/*  »/ 

/*  */ 

/*  »/ 

/*          Program  last  modified  11  December  1986  */ 

/*  «/ 

/*  Purpose:   Displays  budget  vs  expense  to  data  for  */ 

/»  current  fiscal  year*  by  cost  function.  */ 

/»  */ 

/*  Other  modules  called:   SELBFUN,SELEFUN,writef  */ 

/*  */ 

/*  Called  by:  T0BU0EXP  «/ 

/*  */ 

/*  »/ 

/*  Files  used:   NONE  */ 

/»  Files  created:   GRAF  »/ 

/*  */ 

/*  */ 

/*  Local  variables:  cfno>bud>exp  */ 

/*      line-80-,  «budget-100->  *calloc( )»  */ 

/*      i»  j»  Pg>  pflag*  p lines,  line*,  nlinest  */ 

/*  */ 
/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 

gettotf (select*  hdr,  curs) 
char  ■♦select, 
*hdr» 


215 


short  curst  H32l» 

char 

cfno(5l, 
bud{151t 
exptl5l» 

char  line£80l,  *budgettlOO],  *calloc( H 

int  if  j,  pg>  pflag,  gflag,  plines*  lines,  nlinesi 

nlines  =  0) 

setscmodt  EIGHTY )  \ 

clscolor( FOREGRND .BACKGRND ) » 

borderJ  BACKGRNO ) i 

cur locat(  12,23  )j 

for(i=Qi  i  <  50 »  i**l  budget! i  1  »  calloc(l,l)» 

colrprtsCOo  you  want  printed  output  (Y/N)?", FOREGRND, BACKGRND  )\ 

if  (getyasno(D) 

/*  Initialize  tha  print  variables  */ 

pflag  »  1» 

for  (j=lj  j  <=  6»  j++)  lprtlf(  )* 

for  (j=lj  j  <=  1»  j*+)  lprtchar(0,  '  ')» 

lprtstHhdr  )\ 

lprtcrC  H 

lprtlf(  )» 

lprtlf<  )» 

alse  pflag  =  0\ 
plines  =0) 

curlocat( 14,23 )> 

colrprts( "Graph  Output  (Y/N)?", FOREGRND, BACKGRND  )j 
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/»  Initialize  the  graph  variable  */ 
if  ( getyesno( 1 ) )  gflag  ■  1» 
else  gflag  =0) 

clscolor < FOREGRND ,BACKGRND  )  \ 
/»  Process  the  ORACLE  request  */ 
/*  Open  a  cursor  for  the  budget  */ 
if  ( oopen( curst  II, curs 1 0  ], -1, -1, -1, -1, -1 ) ) 

errrptt  curst  0  ]  ,<* )  j 
goto  close | 

/*  Retrieve  the  first  record  */ 

/*   SELECT  C0ST_FUN_N0,  SUMC LABOR  )+SUM( MATERIAL  )*SUM( OTHER), 
FROM  BUDGET  GROUP  BY  C0ST_FUN_N0  */ 

if  (osql3( curst  1],  select,  -1)  II 

odef in (curst  1],  1,  Scfno,  sizeof  cfno. 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odef in(curstl],  2,  C.3,   sizeof  bud, 
5,  -1,-1,-1,-1,-1,-1,-1)  II 

oexect curst  1  ]  i  II 
ofetchCcursll])) 

if  ( curst  1H01==4) 

cur loca  1 1 12 , 30  )  y 

colrprtsl "No  Records  Selected",  FOREGRND,BACKGRNDH 

goto  closet 

else 

errrpt( curst  0 1 ,4 )  \ 

goto  close) 
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/*  Open  a  cursor  for  the  expense  */ 

/*  SELECT  COST_FUN_N0,SUM( LABOR )*SUM( MATERIAL )*SUM( OTHER) 
FROM  EXPENSE  WHERE  DT  =  (SELECT  MAX(OT)  FROM  EXPENSE 
AND  COST_FUN_NO  =  :COST_FUN_NO  GROUP  BY  COST_FUN_NO  */ 
if  (oopent curst  21  .curstO  ]>-l, -1,-1, -1,-1 )  II 
osql3(curs(2l,  selefun,  -1)  If 
odefint curst  21,  1,  Scfno,    sizeof  cfno, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odef in(curst2l,  2,  texp,     sizeof  exp, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
obndrv( curst  2 ],":CFNO",-l, Scfno, -1,1,-1,-1,-1,-1) ) 

errrpt(  curst  0 1  ><+ )  s 
goto  closet 

/»  Retrieve  the  remaining  records  */ 

lines  *  2) 

head(hdr)) 

while  (cursClltOl  !■  4) 

nlines  =  0> 
strcpydine,  cfno)| 

s treat! line,  bud  H 

/»  Retrieve  the  first  address  record  */ 
if  (oexec(curs[2l)  II 
ofetch(curs(2l)) 

if( curst  2 1101==^)  \ 
else 

errrptl  curst  0 ] ,4 )  j 
goto  closet 
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while  (curs!  2  HO]  !=  4) 

strcatdine,  "  ")» 

strcatl lino,  exp  )  \ 

if  <strcmp(line,  "••)!*  0) 

f  ree(  budget!  nlines  1 ) ) 

j  ■  strlen( line)) 

budget I nlines]  =  calloc( j+1,1  )) 

strcpy( budget! nlines],  lino)) 

if  (gflag  ==  1)  writef ( lino)) 

nlines**) 

ofetch(curs!2])» 

/*  Chock  for  a  vary  larga  entry  */ 
if  (nlinos  >  21) 

clscolor < FOREGRND ,BACKGRND  ) ) 

curlocatl 12,24)) 

colrprts(  "xwMMXMXKMKEntry  exceeds  20  lines", 

FOREGRND ,8ACKGRN0 ) \ 
curlocatl  24,21)) 
colrprts ("Press  any  key  to  continue  or  Q  to  quit", 

FOREGRND ,BACKGRN0 ) ) 
getkey( S j  )  v 

if  ((j  ==  'q')  ||  (j  ==  'Q'))  goto  done) 
clscolor! FOREGRND ,BACKGRND )  \ 
lines  =  Z\ 
for  (j=0)  j  <  nlines)  j++)  printfC         Zs  n", budget!  j  ])) 
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/*  Check  for  a  full  screen  */ 
else  if  (lines  ♦  nlines  >  23) 

cur locate  24,21 )» 

colrprts( "Press  any  Key  to  continue  or  Q  to  quit", 

FOREGRNO ,BACKGRND ) \ 
getkey( t j )  l 
lines  >  Z\ 

if  ((j  «  'q')  II  (j  «"  'Q')1  goto  done* 
clscolor( FOREGRNO ,BACKGRND ) \ 
head(hdr)) 

/*  Check  for  a  full  page  */ 

if  (pflag  &&  Uplines  ♦  nlines)  >  51)) 

plines  ■  0» 

i  *  (80  -  strlen(hdr))/2» 

lprtff( )» 

for  (j=l»  j  <=  6»  j*+)  lprtlf()» 

for  (j=l»  j  <=  It  j**)  lprtchar(0>  '  '  )* 

lprtstr(hdr)j 

lprtcr( )» 

lprtlf(  )» 

lprtlf(  )» 

/*  Print  the  lines  */ 
for(j=0i  j  <  nlines »  j++) 

curlocat(  lines, 10 )| 

colrprts( budget [ j  ] , FOREGRNO ,BACKGRND  )  j 

if  (pflag) 

for   (j=l»   j   <s   9j   j++)   lprtchar(0,    '    ')* 
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lprtstrl budget  [ j ] ) | 
lprtcr<  )\ 
lprtlfl  )» 

plines++» 


lines++i 

lines*** 
if  (pflag) 

lprtcrt  )» 
lprilfl 1| 

plioes++» 


ofetehtcurslll)} 


if  (gflag  ==  11 


i  a  axecute2("d:   c  graf  tripbar.exe" )» 


closa : 

cur locat( 24,20 H 

colrprtsC        Press  a  key  to  continua 

FOREGRND ,BACKGRND ) ) 
pausa(  H 

dona: 

/*  Closa  the  budget  cursor  */ 

oclose( curst  1 ] ) \ 

/*     Free  the  budget  array  */ 

for(i=0»  i  <  S0>  i++)  free* budget t i  ]  )> 
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if  (pflag)  lprtfff  )\ 
setscmodJ  EIGHTY )  \ 
border( BACKGRNO ) > 
clscolor <  FOREGRNO .BACKGRND ) » 


/»  program  module  gat tote                 »/ 

/»  version  1.0                    */ 

/»  authors:   Richard  N.  Woodman               ft/ 

/»  Michael  F  Rail                   »/ 

/»  »/ 

/»  »/ 

/»  »/ 

/»  Program  last  modified  11  December  1986        */ 

/ft  »/ 

/ft  Purpose:  Displays  budget  vs  expense  to  data  for      ft/ 

/ft  currant  fiscal  year,  by  cost  class.                  »/ 

/»  ft/ 

/»  Other  modules  called:   SELBCLSELECUwritef           ft/ 

/»  »/ 

/ft  Called  by:  TOBUDEXP                               »/ 

/»  »/ 

/»  »/ 

/ft  Files  used:   NONE                                 »/ 

/ft  Files  created:  GRAF                               «/ 

/»  ft/ 

/*  */ 

/ft  Local  variables:  clno,bud,exp                       ft/ 

/»  line-80->  ftbudget-100-,  ftcalloc( )»                »/ 

/*  i»  j»  P9»  pflag>  plines,  lines,  nlines}            ft/ 

/*  */ 
/ftftftftftftftftftftftftftftftftftiHtftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft/ 
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gettote( select »  hdr>  curs) 
char  *select> 
*hdr» 
short  curst  11321) 

char 

clnom, 
bud! 151, 
axp(15l> 

char  linet80l,  *budget[100l,  *calloc< )» 

int  i»  j>  pg>  pflag*  gflag,  plinos,  lines*  nlinesi 

nlinas  =  0» 

setsc*od( EIGHTY), 

clscolorf FOREGRND .8ACKGRND  ) » 

border! BACKGRND), 

cur locatt 12,23), 

for<i=0*  i  <  50)  !♦♦)  budget! i  1  ■  called  1,1 )» 

colrprtsC'Do  you  want  printed  output  ( Y/N)?", FOREGRND ,BACKGRND)» 

if  ( getyesnot 1 )  i 

/*  Initialize  the  print  variables  */ 

p-flag  =  1» 

for   (j=l»   j   <=  6>   j**)   lprtlfU, 

for  (j=l»   j<»l|   j++)  lprtchar(0»    '    ' )» 

lprtstr(hdr), 

lprtcr( )» 

lprtlf(  ), 

lprtlf(  ), 

else  pflag  =0) 
plines  =  0, 
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/*  Initialize  the  graph  variable  */ 

cur locate  14,23 )» 

COlrprUI  "Graph  Output  ( Y/N  )?",FOREGRND,BACKGRND  )  s 

if  ( getyesno( 1 ) )  gflag  =  1) 

else  gflag  =0) 

clscoloH FOREGRND ,BACKGRND ) > 
/*  Process  the  ORACLE  request  */ 
/ft  Open  a  cursor  for  the  budget  »/ 
if  (ooperri  curst  11, curst  01,-1,-1,-1,-1,-D) 

errrptC  curs 1 0 1,4)} 
goto  close) 

/»  Retrieve  the  first  record  »/ 

/*  SELECT  COST_CL_NO,  SUM( LABOR )*SUM( MATERIAL )*SUM( OTHER), 
FROM  BUDGET  GROUP  BY  COST_CL_NO  #/ 

if  (osql3 (curst  11,  select,  -DM 

odefin(curs-l-,  1,  Sclno,  sizeof  clno,  5,  -1,-1,-1,-1,-1,-1,-1)  II 
odefinf curst  11,  2,  C.3,   sizeof  bud,   5,  -1,-1,-1,-1,-1,-1,-1)  II 
oexec(curstll)  II 
ofetch(curstll)) 

if  ( curst  lH0l==<f) 

cur locate  12,30 )» 

colrprtsC'No  Records  Selec ted", FORE GRND, BACKGRND )» 

goto  closet 

else 

errrpt( curst  0 1 ,4 ) \ 
goto  closes 
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/»  Open  a  cursor  for  the  expense  »/ 

/*  SELECT  COST_CL_NO>SUM( LABOR HSUMC  MATERIAL  )*SUM( OTHER) 
FROM  EXPENSE  WHERE  DT  ■  (SELECT  MAX(DT)  FROM  EXPENSE) 
AND  COST_CL_NO  -    :COST_CL_NO  GROUP  BY  COST_CL_NO  */ 
if  (oopen(curs[2]»curs[0], -1,-1, -1,-1,-1)  II 
osql3(curs[2l,  selecl»  -DM 
odefin(curs[2l,  1>  Xclno,    sizeof  clno, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odefin(curs(2],  2,  iexp,     sizeof  exp> 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
obrdrM  curs[ 2 ],":CLNO",-l,&clno,-l, 1,-1, -1,-1,-1)) 

errrptl  curst  0  ]  ,4  )  \ 
goto  closet 

/»  Retrieve  the  remaining  records  */ 

lines  *  Z\ 

head(hdr)! 

while  (curs!  1  HO]  !=  4) 

nlines  =  0\ 
strcpydine,  clno)) 
strcatdine,  "  ")| 
strcatdine,  bud)) 
strcatdine,  "  ")» 

/»  Retrieve  the  first  expense  record  */ 
if  (oexec(curs(2l)  II 
ofetchJ curst 21)) 

if(cursl2K0]==^)  \ 
else 
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errrpt (  curs ( 0  ]  ,4  )  \ 
goto  closet 


while   (cursmtOl    !=  4) 

strcai(  line,   exp)} 

if   Cstrctt^dine,   "  ")   !»  01 

f  ree<  budget!  nlines])} 

j  s  strlenJ line)} 

budget Inline*]  =  calloci j+i,i)» 

strepy( budget! nlinesl,   line)} 

if   (gflag  «  i)  writefl line)} 

nlines**} 

ofetch(curs(2l)» 

/*  Check  for  a  very  large  entry  */ 
if  (nlines  >  21) 

clscolor < FOREGRND , BACKGRND ) } 

cur locat( 12,24)} 

colrprts( "xxxxxxxxxnEntry  exceeds  20  lines", 

FOREGRND , BACKGRND  )  i 
ourlocat( 24,21 )» 
colrprts( "Press  any  Key  to  continue  or  Q  to  quit", 

FOREGRND , BACKGRND  )  \ 
getKey( Sj ) \ 

if  ((j  sa  -q')  ||  (j  ==  -Q'))  goto  done} 
clscolor( FOREGRND ,BACKGRND  ) } 
lines  =2} 
for  <j=0}  j  <  nlines  }  j*+)  printfC        '/.%   n" , budget! j ]) } 
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/*  Chock  for  a  full  screen  */ 
•Is*  if  (lines  ♦  nlines  >  23) 

curlocat( 24*21 )» 

colrprts ("Press  any  Key  to  continue  or  Q  to  quit", 

FOREGRND ,BACKGRND ) > 
getkey(&j)> 
lines  *  Z\ 

if  f(j  ■■  'q')  II  (j  =«  'Q'»  goto  done) 
clscolor ( FOREGRND  >BACKGRND ) s 
head(hdr)) 

/*  Check  for  a  full  page  »/ 

if  (pflag  &&  ((plinas  ♦  nlines)  >  51)) 

plinas  *  0\ 

i  *   (80  -  strlen(hdr))/2i 

lprtff( )» 

for  (j=l»  j  <«  6 |  j++)  lprtlf()i 

for  (j=l»  j  <=  it  j++)  lprtchar(0,  ■  ')» 

lprtstr(hdr)} 

lprtcr( )» 

lprtlf( )> 

lprtlfO* 

/*  Print   the  lines  */ 
for(j=0j  j  <  nlines)  j++) 

cur loca t ( 1 ines , 10 ) I 

colrpr ts( budget [ j 1 , FOREGRND ,8ACKGRND  )  \ 
if  (pflag) 
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for  (j=l»  3   <=  9»  j*+)  lprtchar(0>  ■  ')» 

lprtstH budget! j])> 

lprtcr< )» 

lprtlf(  )» 

plines++t 

lines*** 

lines** » 
if  (pflag) 

lprtcr( )» 
lprtlf( )» 
plines**» 

if  (gflag  =»  1) 

i  ■  execute2("d:lyons6.exe","lyons6"n 

of  eteh(  curs!  ll)> 

close: 

curlocat(  2<+,20  M 

colrprtsl "        Press  a  key  to  continue  "» 

FOREGRND ,BACKGRND ) j 
pause(  H 

dona: 

/*  Closa  the  budget  cursor  */ 

oclosol  curst  ID) 

/*  Free  the  budget  array  */ 

for(i=0*  i  <  50*  i++)  free(budget[ i  ]  )\ 

if  (pflag)  lprtff(  )» 
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setscmod(  EIGHTY )» 
border(BACKGRND), 
clscolor( FQREGRND ,BACKGRNO ) , 


/XMMXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/*  program  module  gettotfc              */ 

/*  version  1.0                      */ 

/*  authors:   Richard  N.  Woodman              */ 

/*  Michaal  F  Rail                  */ 

/»  */ 

/*  «/ 

/*  */ 

/*  Program  last  modified  11  December  1986        */ 

/»  «/ 

/*  Purpose:   Displays  budget  vs  expense  to  date  for       */ 

/*  current  fiscal  year,  by  cost  function/cost  class.      */ 

/*  »/ 

/»  Other  modules  called:  SELBCFCL ,SELECFCL             «/ 

/*  */ 

/*  Called  by:  TOBUOEXP                               */ 

/*  */ 

/*  */ 

/*  Files  used:   NONE                                 «/ 

/*  »/ 

/*  */ 

/*  Local  variables:  cfno,clno>bud,exp                  */ 

/*  line-80-,  *budget-100-,  *calloc<  )>                «/ 

/*  i»  i»   pg>  pflag,  piines,  lines*  nlinest            */ 

/*  */ 
/mxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxexxxxxxxxxmmxxmxkx/ 

get tot-fci  select ,  hdr,  curs) 
char  *salect, 
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ahdrj 

short  cursMt32b 

char 

cfnolSl, 
clno(3], 
bud! 151, 
oxptlSh 

char  linot801,  »budget[100],  *calloc( )» 

int  if  j»  pg»  pflag,  plioes,  lines,  nlinesi 

nlines  =  Q\ 

sa tscmodf EIGHTY ) \ 

c lscolor < FOREGRND ,BACKGRND  )  » 

border(BACKGRND)* 

cur locate  12,23 )» 

for(i=Ot  i  <  50)  !♦♦)  budget! i]  >  calloc(l,l)» 

colrprtsC'Do  you  want  printed  output  <  Y/N)?"  , FOREGRND, BACKGRND  )  \ 

if  (getyesno(l)) 

/*  Initialize  the  print  variables  */ 

pflag  =  is 

for  I j=l>  j  <=  6»  j**)   lprtlf(  )> 

for  (j=l»  j  <=  1)  j*+)  lprtchar(0,  ■  '  )» 

lprtstr(ndr)) 

lprtcr(  )} 

lprtlf( It 

lprtlf(  )» 

else  pflag  =0) 
plines  =  0) 

clscolor( FOREGRND -BACKGRND  )  J 
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/*  Process  the  ORACLE  request  */ 

/*  Open  a  cursor  for  the  budget  */ 

if  (oop«n(cursll  ],curs[0 1 ,-1,-1,-1,-1,-1 ) ) 

errrpt ( curst  0  1  ,'♦ )  \ 
goto  close) 

/*  Retrieve  the  first  record  »/ 

/»  SELECT  C0ST_FUN_N0,  COST_CL_N0,  LABOR+MATERIAL+OTHER 

FROM  BUDGET  WHERE  LABOR  !=  0  OR  MATERIAL  !=  0  OR  OTHER  !=  0  */ 

if  <osql3(curs£l],  select,  -1)  II 

odef in(eurs-l-»  1,  Scfno,  sizeof  cfno,  S»  -1»-1»-1»-1»-1»-1»-1)  II 
odef in(eurs-l-»  2,  Sclno,   sizeof  clno,  5,  -1»-1, -1,-1,-1, -1,-1)  II 
odefin(curs-l-,  3,  C.3,   sizeof  bud,  5,  -1,-1,-1,-1,-1,-1,-1)  II 
oexec(curs[ll)  II 
ofetch(curs[ll)) 

iftcursll  HO  ]==<♦) 

cur locat( 12,30 )» 

colrprtsC'No  Records  Selected" , FOREGRND ,BACKGRND  ) » 

goto  close | 

else 

errrpt ( curst  0  ]  ,4 )  I 
goto  close) 


/*  Open  a  cursor  for  the  expense  */ 

/*  SELECT  C0ST_FUN_NO,  C0ST_CL_N0,  LABOR+MATERIAL+OTHER  FROM  EXPENSE 

WHERE  DT  =  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 

(LABOR  !=  0  OR  MATERIAL  !=  0  OR  OTHER  !=  0) 

AND  C0ST_FUN_N0  =  :CFN0  AND  COST_CL_NO  =  :CLN0  */ 

231 


if   (oopen(curst2 J, curstOl, -1,-1, -1,-1,-1)    II 
osql3(cursl2l,   salecfcl,    -1)    1 1 
odefin( curst  21,   1,   Scfno,  sizsof  cfno> 

5,   -1,-1,-1,-1,-1,-1,-1)    II 
odofin(curs[2l,   2,   Sclno,  sizsof  clno, 

5,   -1,-1,-1,-1,-1,-1,-1)    II 
odof in(curs(2l,  3,    Sexp,  sizsof  sxp, 

5,  -1,-1,-1,-1,-1,-1,-1)    II 
obndrv( curst  21, ":CFNO",-l,&cfno,-l, 1,-1,-1,-1,-1 )    1 1 
obndrvl curst 2 1, ":CLNO", -1, tolno, -1,1,-1, -1,-1, -1)) 

srrrp-t  ( curst  0  ] ,  <♦ )  \ 
goto  close \ 

/*      Retrieve    ths   remaining    records    */ 

lines   ■  Z\ 

head! hdr ) \ 

while   (curstlltOl    «■  4) 

nlinss  =  0\ 

strcpydins,  cfno)t 

strcatdina,  "  ")» 

s  treat  dine,  clno)) 

strcatdine,  "  " )» 

strcatdins,  bud)) 

strcatdins,  "  ")» 

/*     Retrieve   the  first  expense  record  */ 
if   (oexsc(cursl2])    I  I 
ofetch(curs(2])) 

if(curst2lt0l==4)    i 
else 
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errrpt  <  curs  1 0  ]  ,4  H 
goto  close » 


while  <curs[2H01  !■  4) 

strcat(iine>  exp ) } 

if  (strcmpUine,  ■  ")  !■  01 

f  reel budgetlnlines 1 ) ) 
j  s  strlen< line)) 

budget [nlines]  =  callocf j+1,1 )  > 
strcpyJ budget! nl ines 1,  lino)) 
nlines++) 

of otch( curs!  21)) 

/»  Chock  for  a  vary  large  entry  */ 
if  fnlinas  >  21) 

clscolor < FOREGRND ,3ACKGRND ) i 

cur loeat( 12,24)) 

colrprts( "xxxxxxxxxxEntry  exceeds  20  lines", 

FOREGRND .BACKGRNO ) ) 
cur locate  24,21)) 
colrprts( "Press  any  key  to  continue  or  Q  to  quit", 

FOREGRND ,BACKGRND ) ) 
getkeyi  i j  )  \ 

if  ((j  ==  'q')  II  (j  ==  'Q'))  goto  done) 
elscolor( FOREGRND ,BACKGRND ) ) 
lines  =  2) 
for  (j=0)  j  <  nlines)  j*+)  printfC*         '/.s   n", budget!  j  ])) 
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/*  Check  for  a  full  screen  */ 
else  if  (lines  ♦  nlines  >  23) 

cup locatt 24,21 )» 

colrprts( "Press  any  key  to  continue  or  Q  to  quit", 

FOREGRND ,BACKGRND ) » 
getkey(  & j ) \ 
lines  ■  2} 

if  If j  ««  'q')  II  (j  ==  '«'))  goto  dona) 
clscolor ( FOREGRND ,BACKGRND  )  \ 
head(hdr)* 

/*  Check  for  a  full  page  »/ 

if  (pflag  it   Uplines  ♦  nlines)  >  51)) 

plines  sO) 

i  ■  (80  -  strlen(hdr))/2) 

lprtff( )) 

for  (j=l»  j   <*  6)  j*+)  lprtlf()» 

for  (j=l»   j  <=   i»   j**l   lprtchaMO,    ■    •)» 

lprtstr(hdr)» 

lprtcr( ) \ 

lprtlf(  )» 

lprtlf(  )» 

/*  Print  the  lines  »/ 
for(j=0»  j  <  nlines i  j*+) 

cur locat( lines, 10  )\ 

colrprtsl budget! j 1 , FOREGRND ,BACKGRND )  » 

if  (pflag) 

for  (j=l»   j  <=  9»   j**)   lprtehaHO,    '    •)» 
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lprtstr(budgat[j])» 
lprtcrl )i 
lprtlfl )i 
plines++) 

lines*** 
lines**) 

if   <pvlag) 

lprtcri )) 
lprtlfO* 
plines**) 

of etch < curs  C 1])| 

olose: 

cur  locate  24*20 )  I 

colrprtsC       Press  •  Kay  to  continue 

FOREGRND  >BACKGRND ) » 
pause( )» 

dona: 

/*  Closa  the  budget  cursor  */ 

oclosei curst  1 ]) | 

/*  Fraa  tha  budget  array  »/ 

for(i*0>  i  <  SOl  i*+)  freelbudgett i  1  M 

if  (pflag)  lprtff(  )» 

setscmodt  EIGHTY ) \ 

border! BACKGRNO) | 

clscolor < FOREGRND >BACKGRND ) j 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
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/*                program  modula  getf jo  */ 

/*                    version  1.0  */ 

/*                             authors:   Richard  N.  Woodman  »/ 

/*                   Michaal  F  Rail  ■/ 

/*  «/ 

/*  */ 

/*  */ 

/*          Program  last  modifiad  20  January  1986  «/ 

/*  «/ 

/*  Purpose:  Givan  cost  function  number*  finds  all  »/ 

/*  job  order  numbers  under  if.  »/ 

/*  */ 

/*  Other  modules  called:   SELFJO  »/ 

/*  */ 

/*  Called  by:  JOINFO  »/ 

/»  */ 

/»  »/ 

/»  Files  used:  NONE  »/ 

/*  »/ 

/»  */ 

/»  Local  variables:   efno>clno>jono  »/ 

/»      line-80-,  *jobord-100-,  *calloe< )»  */ 

/*      i>  j»  pg>  pflagt  p lines,  lines*  nlines)  */ 

/*  */ 

/MJHHHHBHHHHBHBBHHHHBBBHHBHHHHHBHHHHBHHBBBBBHBHBHHHHBHBHHHHHt/ 

getfjo( select >  hdr,  curs) 
char  *select, 
*hdr» 
short  curst  H 32] i 

/*  BEGIN  GETBUDGET  ROUTINE   */ 
char 

cfno(5]» 
elno(51» 
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jeneCSIi 

char  linetSO],  * jobordt 100 ] ,  *callocUj 

int   i,  j,  pg,  pflag*  plines,  lines,  nlinesv 

nlines  =  0t 

setscmodt EIGHTY ) j 

clscolor ( FOREGRND .BACKGRND ) \ 

bordar( BACKGRND ) \ 

cur locat< 12,23 )j 

for(i=0»  i  <  50 »  i++)  jobordli]  =  calloc(l,l)» 

eolrprtsC'Do  you  want  printed  output  (Y/N )?", FOREGRND, BACKGRND  )\ 

if  ( gotyesno( 1 ) ) 

/*  Initialize  the  print  variables  */ 

pflag  =  1» 

for  <j=l»  j   <=  6*  i*+)   lprtlf (  U 

for  (j*l*  j  <»  1)  j++)  lprtcharCO,  ■  •)» 

lprtstr(hdr)> 

lprtcr(  )  \ 

lprtlfC )} 

lprtlf( )» 

else  pflag  =  Q\ 
plines  =  0) 

clscoloH FOREGRND , BACKGRND ) i 
/»  Process  the  ORACLE  request  */ 
/*  Open  a  cursor  for  the  jobord  */ 
if  ( oopent curst  1 ], curst  0  3,-1,-1,-1,-1,-1 ) ) 

errrptl curst  0 ] >4 ) l 
goto  close  I 
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/»     Retrieve   the  first   record  */ 

/*SELECT  COST_FUN_NO,  COST_CL_NO,  JOB_0R0_NO 
FROM  JOB_0R0  WHERE   COST_FUN_NO   =     */ 
if  (osql3(curs[l],  select*   -1)    II 

odef in(curs-l-»   1,   Scfno,      sizeof  cfno,   5»   -1»-1»-1»-1»-1»-1»-1)    II 
odefin(curs-l-»   Z,    Sclno,        sizeof  clno,  5»   -1»-1»-1»-1»-1»-1»-1)    II 
odefin(curs-l->  3,   Sjono,        sizeof   jono,   S»   -1»-1»-1»-1»-1»-1»-1)    II 
oexec(curslll)    II 
ofetch(cursCll)) 

iflcursUHO  ]==<♦) 

cur locate  12,30)) 

colrprtsC'No  Records  Selected", FOREGRND , BACKGRND  )| 

goto  close) 


else 


arrrpt 1 curst  0 1 ,4 ) \ 
goto  close) 


/*  Retrieve  the  remaining  records  */ 

lines  =  2\ 

head( hdr ) » 

while  (cursIlICOl  !=  *) 

nlines  =  Q\ 
strcpydine,  cfno)» 
strcatdine,  "  ")j 

s treat! line,  cfno)) 
strcatdine,  "  ■•)» 
strcatl line,  clno)) 
strcatdine,  "  "  )) 
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strcatfline,  jono)) 

if  (strcmpUine,  "  " )  !»  0) 

f  ree( jobordt nl inas ] ) } 

j  =  strlen( line!} 

jobordl nlines]  =  calloct j+1 ,1 ) j 

strcpy< jobordtnlinesl,  lino)) 

nlines++) 


/*  Chock  for  a  very  largo  entry  »/ 
if  (nlines  >  21) 

clscoloM F0RE6RND ,BACKGRND ) \ 

cur locat( 12,24)) 

colrpr-ts(  "JHHHHHHHHHiEntry  exceeds  20  lines"  , 

FOREGRND  ,BACKGRN0 )  \ 

cur locate  24,21)) 

colrprtsi "Press  any  Key  to  continue  or  Q  to  quit's 

FOREGRND ,BACKGRND ) \ 
getkey(Sj)) 

if  (( j  ==  'q')  ||  ( j  ==  'Q'))  goto  done) 
clscolor( FOREGRND ,BACKGRND ) \ 
lines  =  2t 
for  <j=0)  j  <  nlines  \    j++)  printf  (  "         'As   n",  jobord[  j  ] )) 


/*  Check  for  a  full  screen  */ 
else  if  (lines  +  nlines  >  23) 

cur locate  24,21)) 

colrprtsC'Prass  any  key  to  continue  or  Q  to  quit", 

FOREGRND ,BACKGRND ) ) 
getkey(ftj)) 
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lines  =  2) 

if  ((j  ==  'q')  ||  (j  as  «q«))  goto  done» 

clscolor < FOREGRNO ,BACKGRND )  i 

haad(hdr)} 

/*  Check  for  a  full  page  */ 

if  (pflag  Si  Uplines  ♦  nlines)  >  51)) 

plines  =  0\ 

i  a  (80  -  strlen(bdr))/2j 

lprtff(  )» 

for  (jslj  j  <=  6)  J**)    lprtlff  )\ 

for  (j=l>  j  <=  i»  j*+)  lprtchar(0,  '  ■  )» 

lprtstr(hdr)» 

lprtcr(  )^ 

lpptlfl  )i 

lprtlf(  )» 

/*  Print  the  lines  */ 
for(j=0»  j  <   nlines \   j*+) 

cur locat( lines, 10 )» 

colrprts( jobordl j ], FOREGRNO ,BACKGRND ) » 

if  (pflag) 

for  (j=l»   j  <=  9»   j*+)   lprtchar(0,    '    ' )» 
lprtstr( jobordt j ] ) > 
lprtcr( )» 
lprtlf(  )» 
plines** I 

lines+*» 
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Unas**! 
if  (pflag) 

lprtcH  )j 
lprtlfCU 
plines++) 

ofetchlcursCl])* 

elose: 

curlocat( 24,20  )i 

colrprtsC        Press  a  Kay  to  continue 

FOREGRND ,BACKGRN0 ) \ 
pause(  )> 


/*     Closa  the  jobord  cursor  */ 

oclose( curst  1 ] )j  /*  Fraa  the  jobord  array  */ 

for<i=0»  i  <  50)  !♦♦)  f reel jobordt i ] ) > 

if  (pflag)  lprtfft  )\ 

sotscmodl EIGHTY ) ) 

border! BACKGRND)* 

clscolor <  FOREGRND ,BACKGRND ) t 


/XXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/*  program  module  getcjo  */ 

/*  version  1.0  »/ 

/*  authors:   Richard  N.  Woodman  »/ 

/»  Michael  F  Rail  */ 

/*  */ 

/*  */ 
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/*  */ 

/*  Program  last  modified  20  January  1986       */ 

/*  »/ 

/*  Purpose:  Displays  job  order  numbers  when  given  a      */ 

/»  cost  class  number.  */ 

/*  »/ 

/*  Other  modules  called:  SELCJO  */ 

/*  »/ 

/*  Called  by:  JOINFO  »/ 

/*  */ 

/*  */ 

/*  Files  used:  NONE  */ 

/*  */ 

/*  »/ 

/»  Local  variables:  efno»clno» jono  */ 

/»      lino-80-,  *jobord-100-,  *calloc(  )»  »/ 

/*      i»  j»  pg>  pflag,  plinest  lines*  nlinesi  */ 

/»  »/ 

getcjo( select*  hdr,  curs) 
char  *select» 
*hdn 
short  curst  H32b 

/*  BEGIN  GETBUOGET  ROUTINE   */ 
char 

cfno(5l, 
clnotSl, 
jonolSh 

char  line[80]»  * jobordt 100 1 >  *calloc(  )> 

int  i»  j>  pg>  pflag,  plines*  lines*  nlinesi 

nlines  =  0» 
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MtsoMdf  EIGHTY)  I 

clscoloH FOREGRND ,BACKGRND ) » 

border(BACKGRND)» 

cur locatl 12,23 H 

forti«0)  i  <  50v  i++)  jcbordtil  =  calloc(l,l)» 

colrprtsCDo  you  want  printed  output  IY/N)?", FOREGRND ,BACKGRND)» 

if  (getyesno(l)) 

/»  Initialize  tha  print  variablaa  */ 

pflag  a  1» 

for  (j«lj  j  <»  6)  j++)  lprtlf ( H 

for  (jsl»  j  <*  1»  j*+)  lprtchar<0»  '  ')» 

lprtstr(hdr)» 

lprtcr( )» 

lprtlf ( )\ 

lprtlf C )» 

alsa  pflag  ■  0| 
plinas  *  0) 

c lscolor < FOREGRND ,BACKGRND ) > 
/*  Process  tha  ORACLE  request  */ 
/*  Open  a  cursor  for  the  jobord  */ 

if  (oopenlcurstl 3 >cursl0  3  ,-1,-1,-1,-1,-1 )) 

errrp t t curst  0  3 ,4  H 
goto  close) 

/*  Retrieve  the  first  record  */ 

/•SELECT  C0ST_FUN_N0,  C0ST_CL_N0,  J0B_0RD_N0 
FROM  J0B_0RD  WHERE  COST_CL_NO  =»  */ 
if  <osql3<curstl3,  select,  -1)  II 

odef in< curs- 1-,  1,  Scfno,   sizso-f  cfno,  S»  -1,-1,-1,-1,-1,-1,-1)  II 
odef in(curs-l-»  2,  Sclno,   sizeof  clno,  5,  -1,-1, -1,-1, -1»-1»-1)  II 
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odefin(curs-l-»  3,  Sjono,   sizeof  jono,  5,  -1,-1,-1,-1, -1,-1,-1)  II 
oexoc( cursCll )  1 1 
ofetch(eursdl)) 

if(cursdH0l==4) 

cur locate  12,30)) 

colrpr+s("No  Records  Selected", FOREGRND,BACKGRND)) 

goto  close) 


else 


epprpt( curst  0 1 ,4 ) ) 
goto  close) 


/»  Retrieve  the  remaining  records  */ 

lines  »  2) 

head(hdr)) 

while  (cursC 11(01  !=  4) 

nlines  =  Q\ 
strcpyt line,  clno ) ) 
strcatdine,  "  ")) 

s treat  I  line,  cfno)) 
strcatdine,  "  ")) 
strcatdine,  clno)) 
strcatdine,  "  ")) 
strcatdine,  jono)) 

if  (strempdine,  '•  ")  !=  0) 

f  rae ( jobordt  nl ines 1 ) ) 

j  =  strlen( line)) 

jobordt nlines]  =  calloct j+1,1 ) ) 
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strcpyC jobordt nlines  ],  line)* 
nlines++) 


/»  Chock  for  a  vary  largo  entry  */ 
if  (nlines  >  21) 

Clscolorl FOREGRND ,BACKGRND ) ) 

cur locat( 12,24)) 

colrpr-tsl "»BHHBHHHHH»Entry  axe— da  20  lines", 

FOREGRND ,BACKGRND ) ) 
cur locat( 24,21)) 
colrprts( "Press  any  key  to  continue  or  9.  to  quit", 

FOREGRND ,BACKGRND ) i 
getkey( i j )  v 

if  II j  «  'q' )  II  (j  ==  'Q'))  goto  done) 
clscoloH  FOREGRND ,BACKGRND  )  \ 
lines  s  2» 
for  I  j=0)  j  <  nlines)  j++)  printfC        '/.%   n",  jobordt  jl  )> 


/*  Check  for  a  full  screen  */ 
else  if  (lines  ♦  nlines  >  23) 

curlocat( 24,21)) 

colrprts( "Press  any  key  to  continue  or  Q  to  quit", 

FOREGRND ,BACKGRND ) ) 
getkey( &j)i 
lines  =  2) 

if  ((j  ==  'q')  II  (j  ==  '$•))  goto  done) 
clscolorl FOREGRND .BACKGRND  ) ) 
head(hdr)) 

/*  Check  for  a  full  page  */ 
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if  (pflag  SS  ((plinas  ♦  nlines)  >  51)) 

plines  -   0) 

i  =  (80  -  strlen(hdr))/2» 

lpptff(  )» 

for  ( j=l»  j  <s  6»  j*+)  lprtlf(  )» 

for  (j=l»  j  <=  i»  j*+)  lprtchar(0,  ■  ')» 

lprtsir(hdr)) 

lprtcr( )» 

lprilfOi 

lprilf(  )» 

/*  Print  the  lines  */ 
for(j=0»  j  <  nlines)  j++) 

curlocatl lines >10)> 

colrprisC  jobordl j 1 ,  FOREGRND ,BACKGRND  )  \ 

if  (pflag) 

for  (j=l»  j  <~   9»  j**)  lprtcharCO,  '  ')» 

lprtstH jobordl j 1 ) i 

lpr+.cr(  )i 

lprtlf(  )» 

plines++) 

lines**) 

lines*** 
if  (pflag) 

lprtcr(  )> 
lprtlfl  )» 
plines+*t 
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ofetch(eurs[l])t 

close: 

cur locate  24,20  )j 

colrprtsC        Press  a  Kay  to  continue 

FOREGRNO .BACKGRND )  \ 
pause <  )\ 


/*  Close  the  jobord  cursor  */ 
oclosa(curs(l]))  /*  Free  the  jobord  array  */ 
for(i=Oj  i  <  50*  i++)  free( jobordti])) 
if  (pflag)  lprtfft  )i 

setscmodl EIGHTY )\ 
border* BACKGRND ) \ 
Cisco lorl FOREGRNO .BACKGRND ) i 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/*  program  module  gethour               */ 

/*  version  1.0                    »/ 

/*  authors:   Richard  N.  Woodman              */ 

/*  Michael  F  Rail                  */ 

/*  */ 

/*  «/ 

/*  */ 

/*  Program  last  modified  20  January  1986        */ 

/*  */ 

/*  Purpose:  Displays  budget  vs  expense  by  cost  function  */ 

/*  cost  class  for  hours  to  date.                      */ 

/*  */ 

/*  Other  modules  called:   SELHOUR,SELEHOUR              */ 
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/*  */ 

/*  Called  by:  INDVDISP                              »/ 

/*  */ 

/*  »/ 

/*  Files  used:   NONE                                 */ 

/*  */ 

/»  */ 

/*  Local  variables:  cfno,clno,bud,exp                  */ 

/*  line-80-,  *budget-100-,  «calloc( 1}                */ 

/*  i»  j>  P9»  pflag,  plines»  lines*  nlines,           »/ 

/*  »/ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXMXXKXXXXXKXXKMXXXXXEXXXXXXX/ 

gethour( select ,  hdr,  curs) 
char  *select. 
*hdr» 
short  eursM[32l» 

char 

ofno(5), 
olno(5)> 

bud(30), 
exp(30), 

char  line(80),  *budget( 100 ) ,  *calloc<  )\ 

int  i>  j,  pg,  pflag,  plines,  lines*  nlines, 

nlines  =  0* 

setscmodr EIGHTY), 

clscolorl FOREGRND ,BACKGRND ) > 

border(BACKGRND), 

curlocat(  12,23) j 

for(i=0»  i  <  50,  i++)  budgettil  =  calloc(l,l)> 

colrprtsC'Do  you  want  printed  output  (Y/N)?", FOREGRND, BACKGRND ), 
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if  ( getyesno< 1 ) ) 

/*  Initialize  the  print  variables  */ 

pflag  «  i) 

for  (j=l»  j  <=  6)  j++)  lprtlf()» 

for  (j=l»  j<'l»  j**)   lprtchar(0,  '  •)» 

lprtstr(hdr)) 

lprtcrt )) 

lprtlf < U 

lprtlfC )» 

else  pflag  a  Oi 
plines  aO) 

clscolor < FOREGRND ,BACKGRND ) » 
/»  Process  the  ORACLE  request  »/ 
/*  Open  a  cursor  for  the  budget  */ 
if  <oop«n< curst  13, curs [01,-1 ,-1,-1, -1,-1) ) 

errrpt ( curst  0 1 ,4 ) \ 
goto  close) 

/*  Retrieve  the  first  record  */ 

/*  SELECT  C0ST_FUN_N0,  COST_CL_NO,  HOURS 
FROM  BUDGET    */ 

if  (osql3( curst  11,  select,  -DM 

odefin(curs-l-f  1,  Scfno,  sizeof  cfno,  5,  -1»-1»-1»-1»-1»-1»-1)  I 
odef in(curs-l-»  Z,    Sclno,   sizeof  clno,5,  -1,-1,-1, -1,-1,-1,-1)  II 
odefin(curs-l-,  3,  C.3,   sizeof  bud,  5,  -1,-1,-1,-1,-1,-1,-1)  II 
oexec (curst  11)  II 
ofeteh( curst  11)) 

if( curst  1  It 0l==4) 
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cur locate 12 ,30)) 

colrprts("No  Records  Selected",  FOREGRNCBACKGRND)) 

goto  close) 


else 


errrpt(  curs 1 0 1,4)) 
goto  close) 


/*  Open  a  cursor  for  the  expense  */ 

/*  SELECT  C0ST_FUN_N0,  C0ST_CL_N0,  HOURS 

FROM  EXPENSE  WHERE  DT  *  (SELECT  MAX( DT )  FROM  EXPENSE)  AND 
C0ST_FUN_N0  =  :CFN0  AND  C0ST_CL_N0  =  :CLN0  */ 
if  <ocpen(curs[2],curs[0], -1,-1, -1,-1,-1)  II 
osql3(curs[2l,  selehour,  -1)  II 
odef in(cursl2l,  1,  Scfno,    sizeof  cfno, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odef in(curs(2l,  2,  Sclno,    sizeof  clno, 

S,  -1,-1,-1,-1,-1,-1,-1)  II 
odefin(curs[2l,  3,  Sexp,     sizeof  exp, 

S,  -1,-1,-1,-1,-1,-1,-1)  II 
obndrv(curs[2],M:CFN0",-l,Scfno,-l, 1,-1, -1,-1,-1)  1 1 
obr«irv<  cursl  2  V^CLNO'S-l.iclno,-!, 1,-1, -1,-1,-1)) 

errrpt ( curs 1 0 1,4)) 
goto  close) 

/*  Retrieve  the  remaining  records  */ 

lines  ■  2} 

nead(hdr)) 

while   (cursllHOl    !=  4) 

nlines  =  0) 
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strcpy<line>  cfno)) 

strcatdine,  "       ")» 

strcatfline,  clnoH 

strcatdine,  "  ")» 

strcat<line>  bud)) 

/»     Retrieve    tha   first  address    record  */ 
if   (oexec(curs[2l)    1 1 
ofatch(curst2])) 

if(curs(2H0l»4)    \ 
elsa 

arrrpt ( cursl 0  ]  >4  )  j 
goto  close » 


while  (curstZHOl  !=  4) 

strcatdine,  "  M)» 

strcatdine,  axp)) 

if  (strcmpdine,  "  ")  !=  0) 

free< budget! nlines ]  )  \ 

j  =  strlen( line)) 

budget [nlines]  =  callocl j+l>l )  \ 

strcpy(budget[nlinesl,  line)) 

nlines**) 

of etch( curst  2])) 


/»  Check  for  a  very  large  entry  */ 
if  (nlines  >  21) 
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clseolor <  FOREGRNO .BACKGRND  )  \ 

cup locatt 12,24)) 

colrprts(  "MmootKMMMMEntry  exceeds  20  lines", 

FOREGRNO ,BACKGRND ) ) 
cur locat( 24,21 )» 
colrprtsl "Press  any  key  to  continue  or  Q  to  quit", 

FOREGRNO ,BACKGRN0 ) ) 
getkey(lj)) 

if  (ljs«  'q')  II  lj»»  'Q'))  goto  done) 
clseolor i FOREGRNO ,BACKGRND ) ) 
lines  s  2) 
for  (j=0)  j  <  nlines)  j*+)  printfl"        '/.%   n", budge t[  j] )) 


/*  Check  for  a  full  screen  */ 
else  if  (lines  ♦  nlines  >  23) 

our locate  24,21)) 

colrprts( "Press  any  key  to  continue  or  Q  to  quit", 

FOREGRNO .BACKGRNO ) ) 
getkeyt  a j ) ) 
lines  =  2) 

if  ((j  ==  'q')  ||  (j  ==  'Q'))  goto  done) 
clseolor < FOREGRNO , BACKGRNO ) ) 
head! hdr ) \ 

/*   Check  for  a  full  page  */ 

if  (pflag  &2  ((plines  ♦  nlines)  >  51)) 

plines  =  0) 

i  =  (80  -  strlen(hdr))/2) 

lprtffJ  )) 

for  (j=l)  j  <=  6)  j*+)  lprtlfl)) 
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for  <j=l»  j  <=  i»  j**)  lprtchar(0>  '  ')» 

lprtstr(hdr)» 

lprter( )\ 

lprtlfO* 

lprtlft  )» 

/*  Print  the  lines  */ 
for(j=0»  j  <  nlinesi  j**) 

cur locate  lines > 10 )j 

Colrprts( budget [ j  ] ,  FOREGRND ,BACKGRN0  ) » 

if  (pflag) 

for  (j=l»  j  <=  9»  j**)  lprtchar(0>  '  ')» 

lprtstr<budget(j])» 

lprtcr( )» 

lprtlfC )» 

plines**> 

Unas**  i 

lines** » 
if  (pflag) 

lprtcr(  H 
lprtlfl  )> 
plines**» 

ofetch(cursCl])> 

close : 

cur locat( 24,201} 

colrprtsl "        Press  a  key  to  continue         "» 
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FOREGRND ,BACKGRND ) \ 
pause(  H 


/*  Close  the  budget  cursor  */ 

ocloset curs [ 1 1 ) i 

/»  Free  the  budget  array  »/ 

for(i=0»  i  <  50)  i++)  freef budget! i  ]  )) 

if  (pflag)  lprtff< )} 

setscmodl EIGHTY) \ 

border! BACKGRND ) » 

clscolor ( FOREGRND .BACKGRND ) ) 


/XMXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXX/ 

/»  program  module  getlab                */ 

/*  version  1.0                    */ 

/*  authors:   Richard  N.  Woodman               */ 

/*  Michael  F  Rail                  */ 

/*  «/ 

/*  */ 

/*  */ 

/*  Program  last  modified  20  January  1986       */ 

/*  */ 

/*  Purpose:   Displays  budget  vs  expense  by  cost  function  */ 

/*  cost  class  for  labor  to  date.                        »/ 

/*  */ 

/*  Other  modules  called:   SELLAB,  SELELAB                */ 

/*  */ 

/*  Called  by:  INDVDISP                                 */ 

/*  */ 

/*  «/ 
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/*  Files  used:   NONE                                    »/ 

/*  */ 

/*  */ 

/*  Local  variables:  cfno»clno,bud,exp                   */ 

/*  line-80-,  *budget-100-,  *calloc<  )\                                       */ 

/*  i»  j»  P9»  pflag,  plines,  lines*  nlinest           */ 

/*  «/ 

/XXKEXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

ge t lab « select ,  hdr,  curs) 
char  »select> 
ahdri 
short  curs(  M32)j 

char 

cfno<5), 
clno(S), 
bud(20), 
«xp(20)> 

char  line(80),  *budget( 100),  *callocl  H 

int  it  j,  pg>  pflag,  plines »  lines,  nlinest 

nlines  =  0» 

setscmodt  EIGHTY ) » 

clscolor < FOREGRND ,BACKGRND ) » 

border( BACKGRNO ) » 

curlocatl 12,23)) 

for(i=0»  i  <  50,  i*+)  budget! U  ■  ealloc(l,l)i 

colrprtsC'Oo  you  want  printed  output  (Y/N)?",FOREGRND,BACKGRND), 

if  ( getyesno( 1 ) ) 

/*  Initialize  the  print  variables  */ 
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pflag  »  1» 

for  <j=l»   j  <=  6»   j++)   lprtlf < )» 

for  ( j-li   3  <=  1»   j++)  lprtcharCO,    ■    ')» 

lprtstrthdm 

lprtcr<  )» 

lprtlf( )» 

lprtlfl )» 

else  pflag  ■  0| 
plines  *   0» 

clscolor( FOREGRND ,BACKGRND ) | 
/*  Process  the  ORACLE  request  */ 
/*  Open  a  cursor  for  the  budget  */ 
if  < oopen< curst  1], curst  01,-1,-1,-1, -1,-1 )) 

errrpt ( curst  0 ] ><♦ ) » 
goto  close v 

/*  Retrieve  the  first  record  */ 

/*  SELECT  COST_RJN_NO,  C0ST_CL_N0,  LABOR 
FROM  BUDGET    */ 

if  <osql3( curst  1],  select,  -1)  1 1 

odef in(curs-l-»  1»  Sc-fno,  sizeof  cfno»  5,  -1,-1»-1»-1»-1»-1»-1)  II 
odef in(curs-l-»  2,  Sclno,  sizeof  clno,  5,  -1,-1»-1»-1»-1»-1»-1)  II 
odefin(curs-l-,  3,  C.3,   sizeof  bud,  5,  -1,-1,-1,-1,-1,-1,-1)  II 

oexeci curst  1] )  II 
ofetchCcurstll)) 

if  ( curst  l]t0l=='4) 

curlocatt 12,30 )J 

colrprts( "No  Records  Selected" , FOREGRND, BACKGRND  1 1 

goto  close) 
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else 


•rrrptt  curst  0 1  »<♦ )  s 
goto  close v 


/*  Open  a  cursor  for  the  expense  »/ 

/*  SELECT  COST_FUN_NO,  COST_CL_NO,  LABOR 

FROM  EXPENSE  WHERE  OT  =  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 
COST_FUN_NO  =  :CFNO  AND  COST_CL_NO  =  :CLNO  */ 
if  (oopen(curs(2],curs[0], -1,-1, -1,-1,-1)  1 1 
osql3(curst2l>  selelab,  -1)  II 
odef in(curs(2l»  1,  Scfno,    sizeof  cfno, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odafin(curs[2l,  2,  &clno,    sizeof  clno, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odef in(curs(2],  3,  &exp,     sizeof  exp, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
obodrv(curs[2],":CFNO",-l,4cfno,-l, 1,-1, -1,-1,-1)  1 1 
obndrv(cursl2],":CLN0",-l,«clno,-l,l,-l,-l,-l,-l)) 

errrpt ( curst  0  ]  ,4  )  \ 
goto  closet 

/*  Retrieve  the  remaining  records  */ 

lines  a  2) 

head(hdr)t 

while  (cursUHOl    !=  4) 

nlines  =0) 
strcpydine,  cfno)) 
streamline,    "  ")» 

strcatlline,   clno)) 
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streatUine,  "  ")» 
strcat(line»  budH 

/*  Retrieve  tha  first  address  racord  */ 
if  (oexeci curst  2] )  II 
ofaich(curs[2D) 

if(cursI2][0]==4)  i 
alsa 

errrptl  curs  1 0 ] >4 ) » 
goto  closet 


while  <curst2H0]  »=  4) 

strcatdine,  "  ")» 

•trcat(lina»  axp)j 

if  (strcmpdina,  ■  "1  !■  0) 

f raa( budget t nlines ] ) \ 

j  »  strlenl line ) \ 

budget [nlinas]  =  callocl j  +  1,1 )  \ 

strcpyf budget t nl ines  ] ,  line)) 

nlines++i 

of atch( curs  [  2 1 ) \ 

/*  Check  for  a  vary  large  entry  »/ 
if  (nlinas  >  21) 

clscolor ( FOREGRND ,BACKGRN0  I  v 
cur  loca t  <  1 Z » 2<+  )  \ 
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colrprts( "**********Entry  exceeds  20  lines", 

FOREGRND ,BACKGRND ) \ 
cur locail 24,21)) 
colrprts( "Press  any  Kay  to  continue  or  9  to  quit", 

FOREGRND ,BACKGRND ) ) 
getkey( i j ) i 

if  ((j  ■■  'q')  II  (j  ■■  Q'))  goto  dona) 
clscolor (  FOREGRND  ,BACKGRND ) ) 
lines  s  2) 
for  tj«0i  j  <  nlinas)  j*+)  printfl"        Xs  n", budget!  j  ] )) 


/*  Check  for  a  full  screen  */ 
alsa  if  (lines  ♦  nlines  >  23) 

cur locate  24,21)) 

colrprtst "Press  any  key  to  continue  or  Q  to  quit", 

FOREGRND ,BACKGRND ) ) 
getkay(Sj)) 
lines  *  2) 

if  ((j  ==  <q>)  ||  (j  3.  -Q-))  goto  dona) 
clscolor < FOREGRND ,BACKGRN0 ) ) 
head! hdr ) ) 

/*  Check  for  a  full  page  */ 

if  (pflag  &&  Uplines  ♦  nlinas)  >  51)) 

plines  =0) 

i  =  (80  -  strlen(hdr))/2) 

lprtff(  )) 

for  (j=l)  j  <=  6)  j++)  lprtlfO) 

for  (j=l)  j  <=  i)  j++)  lprtchar(0,  '  ')) 

lprtstr(hdr)) 

lprtcr( )) 
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lprtlf( )> 
lprtlf(  )» 

/*  Print  the  lines  */ 
for(j=0»  j  <  nlinesi  j++) 

curlocat<  lines,  10 )» 

coirpr ts< budge  t [ j 1 ,  FOREGRND ,BACKGRND ) » 

if  (pflag) 

for  (j=l>  j  <=  9»  j++)  lprtchar(0»  '  *)i 

lprtstH  budget  I  jlU 

lprtcr(  )| 

lprtlf(  )» 

plirm***t 

lines ♦♦» 

lines**} 
if  (pflag) 

lprtcr( )> 
lprtlf(  m 
plines++i 

ofetch(cursll])» 

close: 

curlocat( 24>20)» 

colrprtsC        Press  a  key  to  continue         H» 

FOREGRND .BACKGRND ) v 
pauset  H 

done: 
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/*  Closa  the  budget  cursor  */ 

oclose(  curst  ID) 

/*  Free  tha  budget  array  */ 

forti=0»  i  <  50 »  i*+)  free* budget [ i ] )i 

if  (pflag)  lprtff(  )) 

setscmod( EIGHTY )  \ 

border( BACKGRND )  \ 

clscolor ( F0REGRN0 ,BACKGRND ) » 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXEXXXXXXXXXXXXXXXXXX/ 

/*  program  module  getmat                */ 

/*  version  1.0                     »/ 

/*  authors:   Richard  N.  Woodman              */ 

/*  Michael  F  Rail                   «/ 

/*  «/ 

/*  */ 

/*  */ 

/*  Program  last  modified  20  January  1986       »/ 

/*  */ 

/*  Purpose:   Displays  budget  vs  expense  by  cost  function  */ 

/*  cost  class  for  material  to  date.                      */ 

/*  */ 

/*  Other  modules  called:   SELMAT,  SELEMAT               */ 

/*  */ 

/*  Called  by:  ZNDVOISP                               »/ 

/*  */ 

/*  */ 

/*  Files  used:   NONE                                   */ 

/*  */ 

/*  */ 

/*  Local  variables:  efno>clno>bud»exp                    * 

/*  line-80-,  *budget-100- ,  *calloc( )»               */ 
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/*      i»  j»  P9»  pflag,  plines,  lines,  nlines,  */ 

/*  */ 

getmatl select,  hdr,  curs) 
char  *select, 
*hdr, 
short  curst  H 32 h 

char 

cfnotSl, 
elnoCSl* 
budUO], 
exp(20l, 

char  linet80l,  *budgettlOO],  *calloc(  H 

int  it  j»  pg»  pflag,  plinas*  lines,  nlinasi 

nlinas  ■  0, 

saisonodC EIGHTY), 

c lscolor  < FOREGRND ,BACKGRND ) , 

border(BACKGRND), 

cur locate  12,23), 

for(i=0»  i  <  50,  i*+)  budget! il  =  ealloc(l,l)» 

colrprtsC'Do  you  want  printed  output  (Y/N)?"» FOREGRND, BACKGRND ), 

if  (getyesno(l)) 

/*  Initialize  the  print  variables  */ 

pflag  =  1, 

for  (j=l»  j  <=  6,  j*+)  lprtlfO, 

for  (j*li  j  <=  1»  j++)  lprtchaHO,  ■  '), 

lprtstr(hdr), 

lprtcr( )» 

lprtlf(  ), 
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lprtlfC  H 

else  pflag  =  0\ 
plines  =  0) 

clscolor( FOREGRND ,8ACKGRND ) ) 
/*  Process  the  ORACLE  request  */ 
/*  Open  a  cursor  for  the  budget  »/ 
if  (oopenlcursUUcurslO  1,-1, -1,-1,-1,-1)) 

errrptt curs 1 0 1 ,4 ) y 
goto  close) 

/»  Retrieve  the  first  record  */ 

/*  SELECT  COST_FTJN_NO,  COST_CL_NO,  MATERIAL 
FROM  BUDGET    */ 

if  (osql3(curs(l],  select,  -1)  II 

odef in(curs-l->  1,  Xcfno,  sizeof  cfno,  5,  -1>-1»-1»-1»-1»-1»-1)  II 
odefin(eurs-l-,  2,  4clno.  sizeof  clno,  5,  -1»-1»-1»-1»-1»-1»-1)  II 
odefin(eurs£l],  3,  C.3,   sizeof  bud,   5,  -1,-1,-1,-1,-1,-1,-1)  II 
oexec(curs[l])  II 
ofetchCeursUl)) 

if  ( curst  1H0]==4) 

cur locat( 12,30)) 

colrprtsCNo  Records  Selected", FOREGRND ,BACKGRND)» 

goto  close) 

else 

errrpt( curst  0 ] ,4 ) ) 
goto  close) 
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/*  Open  a  cursor  for  the  expense  */ 

/*  SELECT  COST_FUN_NO»  COST_CL_NO,  MATERIAL 

FROM  EXPENSE  WHERE  OT  =  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 
COST_FUN_NO  =  :CFNO  AND  COST_CL_NO  =  :CLNO  »/ 
if  <oopen(eurs[ 21, curst  0], -1,-1,-1,-1,-1)  II 
osql3(cursl2l,  selemat,  -1)  II 
odef in<curs[2l>  1,  ftcfno,    sizeof  cfno, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odefin(curs[2],  2,  tclno,    sizeof  olno, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odefin(curs[2l,  3,  Sexp,     sizeof  exp, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
obndrv(curs[2],":CFN0",-l,Scfno,-l, 1,-1, -1,-1,-1)  1 1 
obndrv(curs[2],,,:CLNO",-l,Sclno,-l,l,-l,-l,-l,-l)) 

errrptl  curs  t 0 1 ,4 )  \ 
goto  closet 

/*  Retrieve  the  remaining  records  */ 

lines  ■  2 i 

heed(hdr)} 

while  (curstlHOl  !=  4) 

nlines  =  0> 
strcpydine,  cfno)} 
strcatdine,  "      »)| 
strcatdine,  clnoH 
strcatdine,  "  ")» 
strcatdine,  bud)) 

/*  Retrieve  the  first  address  record  */ 
if  (oexecl curst  2 ] )  II 
ofetch(curs[2D) 
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if<  curst  2  HO  ]==<♦)  ) 
alsa 

errrpt(  curst  0  ]  *<*  ) ) 
goto  close* 


while  (curst2lt0l  !=  4) 

strcatUine,  "  ")) 

* treat (  line,  exp ) ) 

if  (strcmpQine,  "  ")  !=  0) 

free* budget I nl ines 1 )\ 

j  s  strlen( line)) 

budget tnl ines ]  =  callocl j+1 ,1 )  i 

strcpyt budget tnl ines 3,  line)) 

nlines*+) 

of etch( curst  21)) 


/*  Check  for  a  very  large  entry  */ 
if  (nlines  >  21) 

clscolor ( FOREGRND ,BACKGRND ) \ 

cur locat( 12,241) 

colrprts( "XM»M»M*MM»Entry  exceeds  20  lines", 

FOREGRND ,BACKGRN0 ) \ 
cur locat( 24,21)) 
colrprts( "Press  any  Key  to  continue  or  Q  to  quit" , 

FOREGRND ,BACKGRND ) ) 
getkeyl &j  i\ 
if  ((j  ==  'q')  ||  (j  ==  '9'))  goto  done) 
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clscolor ( FOREGRND .BACKGRND  )  \ 

linos  ■  2» 

for  (j=0»  j  <  nlinos*  j++)  printfC        '/.%   n" .budget!  jl)» 


/*  Chock  for  a  full  screen  */ 
also  if  (lines  ♦  nlinos  >  23) 

cur locate 24,21)» 

colrprtsl "Press  any  key  to  continue  or  Q  to  quit's 

FOREGRND , BACKGRND ) \ 
ge tkey ( 4  j  )  \ 
lines  =  Z\ 

if  ((j  ==  'q')  ||  (j  =*  •$•))  goto  done» 
clscolor( FOREGRND .BACKGRND ) » 
haad(hdr)s 

/»  Check  for  a  full  page  */ 

if  (pflag  &&  Uplines  ♦  nlinos)  >  51)) 

plinss  =  0\ 

i  a  (80  -  strlen(hdr))/2> 

lprtff(  U 

for  (j=l*  j  <=  6>  j*+)  lprtlf(  )j 

for  (j=l»  j  <=  i»  j++)  lprtchar(0*  '  ')» 

lprtstr(hdr)) 

lprtcr( H 

lprtlf(  )» 

lprtlf(  )* 

/*   Print  the  lines  */ 
for(j=0j  j  <  nlinesi  j+* ) 
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curlocatl lines, 10 ) \ 

colrprtst  budget! j  1 ,  FOREGRND ,BACKGRND  ) » 

if  (pflag) 


lprtstr(budgettj])» 
lprtcrl )) 
lprtlft  n 
plines++t 

lines++» 

lines**) 
if  (pflag) 

lprtcr< )» 
lprtlfl  )» 
plines ♦♦» 

of etch< curst  1 1 ) » 

closa: 

curlocatl 24.20 H 

colrprts* "        Prass  a  key  to  continue 

FOREGRND ,BACKGRND ) \ 
pause ( )> 

dona: 

/*  Closa  the  budget  cursor  */ 

ocloset  curst  1 1 )  % 

/*     Free  the  budget  array  */ 

for(i=0»  i  <  50 j  i++)  free (budget! i  1  U 

if  (pflag)  lprtff(  )i 

setscmod( EIGHTY ) ) 
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border! BACKGRND  M 

clscolor( FOREGRND ,BACKGRND )  \ 


/XMMMXMMXXMMXXMXXXXXMMMMMMXXXXXMMXXXXXMMXMMMXMMMMMXXMMMXMMXM/ 

/*                program  module  getoth  */ 

/*                     version  1.0  »/ 

/*            authors:   Richard  N.  Woodman  «/ 

/*                    Michael  F  Rail  »/ 

/*  */ 

/»  */ 

/*  */ 

/*          Program  last  modified  20  January  1986  */ 

/*  «/ 
/*  Purpose:   Oisplays  budget  vs  expense  by  cost  function  */ 

/*  cost  class  for  other  to  date.  */ 

/*  »/ 

/»  Other  modules  called:  SELOTH,  SELEOTH  »/ 

/*  »/ 

/*  Called  by:  INDVDISP  »/ 

/*  »/ 

/*  »/ 

/*  Files  used:   NONE  */ 

/*  */ 

/*  */ 

/*  Local  variables:  cfno>clno,bud,exp  */ 

/*      line-QO-,  *budgat-100-,  *calloc<)»  »/ 

/*      i»  j»  pg>  pflag,  plines,  lines*  nlinesi  */ 

/*  */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

getoth( select >  hdr>  curs) 
char  *select, 
*hdr> 
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short  curs[  H321} 

char 

ofnoISl, 
elno[5lt 
bud! 20], 
axp(20Ji 

char  linet 801,  «budgetI100],  *calloc()} 
int  i»  j,  pa,  pflag,  plines,  lines*  nlines} 

nlinas  *  0) 

Mtsenodf  EIGHTY)} 

Cisco loH FOREGRND ,8ACKGRND  )  \ 

border! BACKGRND)} 

cur locate 12>23)| 

for(i=0j  i  <  50}  !♦♦)  budgetUl  =  calloc(l,l)} 

colrprtsC'Oo  you  want  printed  output  (Y/N)?", FOREGRND, BACKGRND )» 

if  (gatyesno(l)) 

/*  Initialize  tha  print  variables  */ 

pflag  s  ii 

for  < j=l»  j«6i  j*+)  lprtlfC  )} 

for  (j=l}  j  <s  lj  j++)  lprtchar(0,  '  *)} 

lprtstr(hdr)} 

lpr tcr ( ) } 

lprtlff )} 

lprtlfl )} 

else  pflag  =  0} 
plines  =0} 

clscolor( FOREGRND , BACKGRND  )  \ 
/*   Process  the  ORACLE  request  */ 
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/*  Open  a  cursor  for  the  budget  */ 

if  (oopen( curst 11, curst  01,-1,-1,-1,-1,-D) 

errrptC  curst  0 1  ,4 )  I 
goto  closet 

/*  Retrieve  the  first  record  */ 

/*  SELECT  COST_FUN_NO,  COST  s_CL_NO,  OTHER 
FROM  BUDGET  »/ 

if  Cosql3 (curst  11,  select*  -1)  II 

odefin(curs-l-»  1»  Scfno,   sizeof  cfno,  5»  -1,-1»-1>-1»-1»-1,-1)  II 
odef in(curs-l-,  Z,    Sclno,   sizeof  clno>  5,  -1»-1»-1»-1»-1»-1»-1)  II 
odefin(curs-l-,  3,  C.3,   sizeof  bud»  5»  -1,-1,-1,-1,-1, -1,-1)  II 
oexec(curstl])  II 
ofotch(curstl])> 

if  ( curst  1][0]==4) 

cur locat( 12 ,30 )» 

colrprtsC'No  Records  Selected" ,FOREGRND,BACKGRND)» 

goto  closet 

else 

errrptl  curst  0 1 ,4 ) » 
goto  closet 


/*  Open  a  cursor  for  the  expense  */ 

/*  SELECT  C0ST_FUN_N0,  C0ST_CL_N0,  OTHER 

FROM  EXPENSE  WHERE  DT  =  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 

C0ST_FUN_N0  =  :CFNO  AND  C0ST_CL_N0  =  :CLN0  */ 
if  (oopen(curs[2l,curs[0l, -1,-1, -1,-1,-1)  II 

osql3 (curst  21,  seleoth,  -1)  I  I 
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odef in(curs[2l,  1»  &cfno>    sizeof  cfno, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odof ln(cursE2],  2,  Sclno,    sizeof  clno, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odef in(curs[2],  3,  &exp,     sizeof  exp, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
obndrv(curs[2],":CFN0",-l,<cfno, -1,1,-1,-1, -1,-1)  1 1 
obndrv(curs[2],":CLN0",-l,Sclno,-l,l,-l,-l,-l,-l)) 

errrpt I  curs 1 0 1 ,4 ) I 
goto  close) 

/*  Retrieve  the  remaining  records  */ 

lines  ■  2\ 

heed(hdr)) 

while  (curs[ll[Ol  !=  4) 

nlines  ■  0) 
strcpydine,  cfno)t 
strcetUine,  "       ")» 
street! line,  clno)) 
strcetUine,  "  ")» 
s treat* line,  bud  M 

/»  Retrieve  the  first  eddress  record  */ 
if  (oexec(curs(2l)  II 
of etch! curst  21)) 

if(curs[2H0]==4)  \ 
else 

errrpt(  curs!  0  ]  ,4 )  j 
goto  closet 
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while  <eursl2H0]  !»  4) 

strcatUine,  "  ")» 

•treat! lino*  exp)i 

if  <stretnp(line,  "  ")  !=  0) 

freelbodgetCnlineslH 

j  *  strlenc  linen 

budget Inline*]  »  calloc( j+1,1  )j 

strcpyl budget [nlinesl,  lineH 

nlinas*** 

ofatch(curs[2l)| 


/*  Chock  for  a  vary  large  antry  »/ 
if  (nlines  >  21) 

clscoloH  F0REGRN0  »BACKGRN0  )  I 

cur locatt 12,24)) 

colrprts(  "**#**#*#*#Entry  axcaads  20  linas", 

FOREGRND .BACKGRND ) \ 
curlocat(24,2in 
colrprtsl "Press  any  key  to  continue  or  Q  to  quit", 

FOREGRND ,BACKGRN0 )  > 
getkey( *  j ) ) 

if  <(j  a=  'q')  M  (j  s=  'Q'))  goto  done* 
clscolor( FOREGRND .BACKGRND  l  \ 
lines  =  2) 
for  (j=0»  j  <  nlinas  *  j++)  printfC         '/.%   n",  budget  I  j]  )» 


/»  Check  for  a  full  screen  */ 
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•Is*  if  (linos  ♦  nlines  >  23) 

cur locat( 24,21 )» 

colrprts( "Press  any  key  to  continue  or  Q  to  quit's 

FOREGRND ,BACKGRND ) i 
getkey(ij)) 
lines  *  2) 

if  ((j  ==  'q')  II  (j  ==  'Q' J)  goto  done> 
clscolorl FOREGRND ,BACKGRND ) j 
head(hdr)> 

/*  Check  for  a  full  page  */ 

if  (pflag  &&  Uplines  ♦  nlines)  >  51 ) ) 

plines  »  0) 

i  »  (80  -  strlen(hdr))/2* 

lprtff( )» 

for  tj»l»  j  <*  6)  j++)  lprtlfUj 

for  (j*l»  j  <-   i)  j*+)  lprtchaHO,  '  •)» 

lprtstr(hdr)) 

lprtcr(  )» 

lprtlf( )» 

lprtlf( )> 

/*  Print  the  lines  */ 
for(j*0*  j  <  nlines i  j**) 

curlocat( lines. 10  H 

colrprtsl budget t j  ] , FOREGRND ,BACKGRND  ) » 

if  (pflag) 

for   ( j=l »    j   <=   9 j    j*+)    lprtchar(0,    ■    ')» 
lprtstM  budget!  j  ] )  | 
lprtcr(  )} 
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lprtlfC  )» 
plinas*+» 

lines**) 

lines**) 
if  (pflag) 

lpr tcr( ) \ 
lprtlfO) 
plines**) 

ofetchlcursCl]  )> 

closa: 

curlocatl  2<t  ,20  Ij 

colrprtsC        Press  a  Kay  to  continue 

FOREGRND ,  BACKGRND ) ) 
pause (  H 


/*  Closa  the  budget  cursor  */ 

ocloset  curst  11); 

/*  Free  the  budget  array  */ 

for(i=0)  i  <  50)  i*+)  freoCbudgetlil)) 

if  (pflag)  lprtff( )) 

se tscmodl EIGHTY ) \ 

border ( BACKGRND  )  i 

clscolor ( FOREGRND , BACKGRND  )  \ 
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/*                program  modulo  getsum  */ 

/*                   version  1.0  */ 

/*            authors:   Richard  N.  Woodman  */ 

/*                   Michaol  F  Rail  */ 

/»  */ 

/»  »/ 

/*  */ 

/*                      Program  last  modified  20  January  1986  */ 

/*  9/ 

/*     Purpose:  Displays  budget  vs  expense  total  */ 

/*                    to  data.  »/ 

/*  */ 

/*  Other  modules  called:  SELSUM,  SELSUMA  */ 

/*  */ 

/»     Called  by:  T0BU0EXP  */ 

/»  */ 

/*  */ 

/*  Files  used:  NONE  »/ 

/*  Files  created  :  bud,grafl  */ 

/*  */ 

/*     Local  variables:  cfno>dte»  bod, exp  */ 

/*      line-80-,  *budget-100-»  *calloc<  )»  */ 

/*      i»  j»  pg>  pflag»  plines,  lines*  nlinesi  */ 

/*  */ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

getsum( select »  hdr,  curs) 
char  "select, 
*hdr» 
short  curst  H32U 

char 

cfno(5l, 
dtetlOl, 

budllSl, 
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oxpClSh 

char  liooleo],  *budgetClOO 3,  *calloc(  U 

int  i»  j,  pg>  pflag*  gflag,  plines,  lines,  nlines, 

nlines  =  Qi 

MtscmodC  EIGHTY ) , 

clscolor < FOREGRND .BACKGRND  ) » 

bordert BACKGRND)) 

cur locatt 12,23)) 

for(i-O)  i   <  50)  !♦♦)  budgetti]  ■  calloc(l,l)) 

colrprtsCDo  you  want  printed  output  (  Y/N  )?■',  FOREGRND,  BACKGRND  )\ 

if  ( getyesnot 1 ) ) 

/*  Initialize  the  print  variables  */ 

pflag  =  1) 

for  <j=l)  j  <=  »|  j++)  lprtlfC  )) 

for  (j=l)  j  <*  1)  j*+)  lprtchartO,  ■  •)» 

lprtstr(hdr)) 

lprtcrl )) 

lprtlfC  )) 

lprtlf(  )) 

else  pflag  =  0\ 
plines  3  0) 

/*  Initialize  the  graph  variable  */ 

cur locate  14,23)) 

colrprts< "Graph  Output  ( Y/N)?" , FOREGRND, BACKGRND  )\ 

if  ( getyesno( 1 ) )  gflag  =1) 

else  gflag  =  0) 

clscolor ( FOREGRND , BACKGRND ) \ 
/*   Process  the  ORACLE  request  */ 
/*  Open  a  cursor  for  the  budget  */ 
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if  (oopen(curstll, curst  01,-1,-1,-1,-1,-1)) 

errrpt( curst 0 ] ,4 ) } 
goto  close) 

/*  Retrieve  the  first  record  */ 

/*  SELECT  SUM< LABOR )+SUM( MATERIAL )*SUM( OTHER) 
FROM  BUDGET  WHERE  COST_FUN_NO  <  ^ZOO'  »/ 

if  <osql3<curslll,  select,  -1)  II 

odefin(curs-l-»  1,  C.3,   sizeof  bud,  5,  -1,-1,-1,-1,-1,-1,-1)  II 

oexec(curs[l])    1 1 
ofetchtcurstll)) 

iff  curst  llt0l==4) 

ourlocetll2,301i 

eolrprtsC'No  Records  Selected",FOREGRND,BACKGRND)) 
goto  close) 

else 

errrpt ( curs I 0 1 ,4 ) ) 
goto  close) 


/*  Open  s  cursor  for  the  expense  */ 
/*  SELECT  SUM  LABOR )+SUM( MATERIAL  )*SUM( OTHER),  DT 
FROM  EXPENSE 

WHERE  COST_FUN_NO  =  :COST_FUN_NO  GROUP  BY  DT*/ 
if  I oopen( cursl 2 1, curst 01,-1, -1,-1, -1,-1)  II 
osql3( curst  21,  selsume,  -1)  1 1 
odefinl curst 21,  1,  &exp,     sizeof  exp, 

5,  -1,-1,-1,-1,-1,-1,-1)  II 
odefinl curst 21,  2,  &dte,     sizeof  dte, 
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5,  -1,-1,-1,-1,-1,-1,-1)  ) 

orrrptl curs  I 0 ] ,4 ) i 
goto  closet 

/*  Retrieve  the  remaining  records  */ 

lines  ■  2} 

bead! hdr ) } 

while  (cursdUOl  !=  4) 

nlines  >  0| 
strcpy< line,  bud)) 

if  (strcmpdine,  "  ")  !  =  0) 

free* budget t nlinas  ] )  \ 
j  a  strlen( line)) 
budgetlnlinesl  =  calloc< j  +  1,1  >) 
•trcpyt budgetCnlinesl,  line)) 
if  (gflag  ■■  1)  writefbl line )) 
nlines+*j 


/*  Retrieve  the  first  expense  record  */ 
if  <oaxac(curs[2] )  II 
ofetch(curs[2])) 

if(eurs[2H0]==4)  ) 
else 

errrpt( cursl 0 1 ,4) ) 
goto  close) 
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whila  (cursIZUOl  !=  *) 

strcpydine,  "  ")) 

strcatdine,  exp)) 
strcatdina,  "        ")) 
strcatdina,  dte)) 
if  (strcmpdina,  "•')!«  0) 

f rati budget! nlinas ] ) \ 

j  a  strlendine)) 

budge t[nlines]  =  callocl j+1,1 )) 

strcpy< budget! nlinas],  line)) 

if  (gflag  ■■  11  writefK lino I) 

nlinas**) 

ofetch(eurs[2])) 

/*  Check  for  a  vary  larga  antry  */ 
if  (nlinas  >  21) 

clscolort FOREGRND .3ACKGRND  ) ) 

cur locate  12,24)) 

colrprts(  "»»»xMM*»»»Entry  exceads  20  linas", 

FOREGRND .3ACXGRND I J 
cur locate  24,21)) 
colrprtsl "Press  any  key  to  continua  or  9  to  quit", 

FOREGRND ,BACKGRND ) \ 
gatkeyt  Sj  >) 

if  ((j  ==  'q')  II  (j  ==  'Q'))  goto  dona) 
clscolorl FOREGRND , BACKGRND ) ) 
linas  a  2) 
for  (j=0)  j  <  nlinas )  j++)  pr  intf("        'As   n"  ,  budget  I  j  1 )) 
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/*  Chock  for  a  full  screen  */ 
else  if  (lines  ♦  nlinos  >  23) 

cur locatl 24,21 H 

eolrprts( "Press  any  key  to  continue  or  Q  to  quit"] 

FOREGRND ,BACKGRND ) » 
getkey(ftj)» 
lines  »  Z\ 

if  <<j  ■■  'q')  II  (j  =»  'Q'))  goto  done) 
clscolor < FOREGRND .BACKGRND  ) ) 
haad(hdr)) 

/»  Check  for  a  full  page  */ 

if  (pflag  SS  ((plines  ♦  nlinos)  >  51)) 

plines  s0» 

i  a  180  -  strlen(hdr))/2) 

lprtffOi 

for  (j=l>  j  «  6)  3**^    lprtlfC  )j 

for  (j=l»  j  <=  i»  j*+)  lprtchar(0t  '  '  )j 

lprtstr(hdr )» 

lprtcr( )j 

lprtlf( )» 

lprtlf( )» 

/*  Print  the  lines  */ 
for(j=0»  j  <  nlinasv  j*+ ) 

cur locate  lines ,10 ) \ 

colrprtst  budget! j 1 , FOREGRND ,BACKGRND  )  » 

if  (pflag) 

for  (j=l»   j  <=  9»   j*+)   lprtehaHO,    '    '  )» 
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lprts tr  < budget  [ j  ] ) » 
lprtcri  )) 
lprtlf( )» 
plines++t 

lines++> 

lines**) 
if  < pflag) 

lprtcr<  )) 
lprtlfi  )» 
plines**t 

if  (gflag  ■■  1) 

i  »  execute2("d:lyons6.exa">"lyons6n)> 

of etch* curst  1 1 ) > 

close: 

cur locat( 2* , 20 ) » 

eolrprts( "        Prass  a  Kay  to  continua 

FOREGRND ,BACK6RND )  j 
pause ( )j 

dona: 

/*  Closa  the  budget  cursor  */ 

oclose(  curst  ID) 

/*  Free  the  budget  array  */ 

for(i=0»  i  <  50 1  i++)  freetbudgettillj 

if  (pflag)  lprtff(  )\ 

satscmod( EIGHTY ) » 
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border! BACKGRNDlj 

clscolor < FOREGRNO ,BACKGRND ) » 


3.   ORCAINP 

static  char  selfunl ]=  "SELECT  COST_CL_NO,  OTLABOR+STLABOR , 

MATERIAL,  OTHER 
FROM  BUDGET  WHERE  COST_FUN.NO  =  "  » 

static  char  selsuml ]=  "SELECT  SUM! OTLABOR )*SUM< STLABOR )♦ 

SUM( MATERIAL ) +SUMI OTHER ) 
FROM  BUDGET   ■  \ 

static  char  salsumat ]=  "SELECT  SUM! STLABOR  >*SUM< OTLABOR  )* 

SUM( MATERIAL )+SUM<  OTHER ) , DT 
FROM  EXPENSE  GROUP  BY  DT  "  » 

static  char  salclsd"  "SELECT  SUM (  OTLABOR  )+SUM<  STLABOR  )  + 

SUM( MATERIAL )+SUM( OTHER ) 
FROM  BUDGET  WHERE  COST_CL_NO  »  ■  » 

static  char  salfunat  1=  "SELECT  SUM( OTLABOR  )+SUM( STLABOR  )  + 

SUM( MATERIAL )+SUM( OTHER ) 
FROM  EXPENSE  WHERE  COST_FUN_NO  =  "  > 

static  char  selclset  1=  "SELECT  SUM( OTLABOR  )+SUM( STLABOR  1  + 

SUM( MATERIAL )*SUM< OTHER ) 
FROM  EXPENSE  WHERE  COST_CL_NO  =  "  » 

static  char  sal total  ]=  "SELECT  SUM ( OT LABOR )*SUM (ST LABOR )♦ 

SUM( MATERIAL  I+SUMl  OTHER ) 
FROM  EXPENSE"   » 

static  char  salefunt 1=  "SELECT  C0ST_FUN_NO,SUM( OTLABOR )♦ 

SUM( STLABOR )+SUM< MATERIAL  HSUMt OTHER ) 
FROM  EXPENSE  WHERE  OT  =  (SELECT  MAXl DT )  FROM  EXPENSE) 
AND  COST_FUN_NO  =  :cfno  GROUP  BY  COST_FUN_NO"  \ 
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static  char  seleclt  ]=  "SELECT  COST_Cl_NO,SUM< OTLABOR )♦ 

SUM! STLABOR  )*SUM( MATERIAL  ) +SUM( OTHER ) 
FROM  EXPENSE  WHERE  DT  =  (SELECT  MAX(DT)  FROM  EXPENSE) 
AND  COST_CL_NO  =  :clno  GROUP  BY  COST_CL_NO"  » 

static  char  salbfunN=  "SELECT  COST_FUN_NO,  SUM( OTLABOR)* 

SUM( STLABOR  )*SUM( MATERIAL  )+SUM( OTHER ) 
FROM  BUDGET  GROUP  BY  COST_FUN_NO"  \ 

static  char  salbclt  ]=  "SELECT  COST_CL_NO,  SUM( OTLABOR )♦ 

SUM( STLABOR )+SUM( MATERIAL )+SUM( OTHER ) 
FROM  BUDGET  GROUP  BY  COST_CL_NO"  » 

static  char  salbcfclt  ]«  "SELECT  COST_FUN_NO,  COST_CL_NO, 

OTLABOR+STLABORfMATERIAL+OTHER 
FROM  BUDGET  WHERE  OTLABOR  !-  0  OR  STLABOR  !=  0  OR 

MATERIAL  !=  0  OR  OTHER  !■  0"  > 

static  chap  salacfcH  ]=  "SELECT  COST_FUN_NO,  COST_CL_NO, 

OTLABOR+STLABOR+MATERIAL+OTHER  FROM  EXPENSE 
WHERE  DT  *  C SELECT  MAX(OT)  FROM  EXPENSE)  AND 
(OTLABOR  !■  0  OR  STLABOR  !■  0  OR  MATERIAL  !■  0  OR  OTHER  !-  0) 
AND  COST_FUN_NO  =  :CFNO  AND  COST_CL_NO  »  :CLNO"  * 

static  chap  selhotip[ 1=  "SELECT  COST_FUN_NO,  COST_CL_NO, 

OTHOURS+STHOURS 
FROM  BUDGET  "  i 

static  chap  sallabC  1=  "SELECT  COST_FUN_NO,  COST_CL_NO, 

OTLABOR+STLABOR 
FROM  BUDGET  "  i 

static  chap  selmatl 1=  "SELECT  COST_FUN_NO,  COST_CL_NO,  MATERIAL 

FROM  BUDGET  "  » 

static  chap  salothMs  "SELECT  COST_FUN_NO,  COST_CL_NO,  OTHER 

FROM  BUDGET   "  > 

static  chap  salehoupt ]=  "SELECT  COST_FUN_NO,  COST_CL_NO, 
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OTHOURS+STHOURS 
FROM  EXPENSE  WHERE  DT  ■  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 
COST.FUN.NO  =  :CFNO  AND  COST_CL_NO  =  :CLNO  "  » 

static  char  selelabt 1=  "SELECT  COST_FUN_NO,  COST_CL_NO, 

OTLABOR+STHOURS 
FROM  EXPENSE  WHERE  DT  =  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 
COST_FUN_NO  »  :CFNO  AND  COST_CL_NO  <*  :CLNO  M  » 

static  char  selematt I"  "SELECT  COST_FUN_NO,  COST_CL.NO,  MATERIAL 

FROM  EXPENSE  WHERE  DT  »  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 
COST_FUN_NO  =  :CFNO  AND  COST_CL_NO  =  :CLNO  "  » 

static  char  seleothM*  "SELECT  COST_FUN_NO,  COST_CL_NO,  OTHER 

FROM  EXPENSE  WHERE  DT  =  (SELECT  MAX(DT)  FROM  EXPENSE)  AND 
COST_FUN_NO  =  :CFNO  AND  COST_CL_NO  »  :CLNO  "  t 

4.   BAR.  C 

/MXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

/»                 program  modula  Bar.c  */ 

/»                     vara ion  1.0  «/ 

/*            authors:   Richard  N.  Woodman  »/ 

/*                    Michaal  F  Rail  */ 

/*  »/ 

/*           Program  last  modified  20  January  1986  */ 

/»  #/ 

/*  This  program  was  produced  on  an  IBM  clone  using  */ 

/*  DOS  3.1.   Written  with  the  C  programming  language,  */ 

/»  utilizing  the  Graphic  utility  software.  »/ 

/*  */ 

/*  This  is  called  directly  from  DOS  after  the  PROJ  */ 

/*  system  has  been  processed.   This  module  produces  a  */ 

/»  single  bar  graph,  representing  the  budget  of  each  cost  */ 

/*  center.  */ 

/*  */ 

/*  Files  used:   GRAF  #/ 

/*  »/ 
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/*     External  Calls:     Nona  »/ 

/*  */ 

/XMXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXXXXXXXXXXX/ 


*include  "stdio.h" 
tt include  "graph ics.h" 

int  .stack  ■  60000) 

nain( argc ,argv ) 
int  argc> 
char  *argv<  H 

/*  begin  main  */ 

FILE  *inf ile,  *outfila,  *fopen( )» 

/»  Declare  variables  */ 

char  month* 3 W  f ilename(30 )»  name(4)» 

float  cost,  xl(14),x2(14),yl(14),x(301),  y(301),  z(301)» 

float  a(301)>  b(l<t),  c(301),  d(301)> 

int  eft  flag,  i,  count,  nxdiv,  nydiv,  nptsi 

long  gettimet  )» 

float  budget,  budget 1,  budget2,  zl(13),  w,  Mil 
•  P» 

struct  strlab  /*  begin  Needed  for  string  labels.  */ 
int  flag) 
char  sl(10)t 
char  s2(10)> 
char  s3( 10 )  i 
char  s4( 10  )  v 
char  s5(10)> 
char  s6<10)» 
char  $7(10n 
char  s8(10)j 
char  s9(10)» 
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char  $10(10)» 
char  sll(lO)} 
char  sl2(10)} 
char  sl3(10)} 
char  sWUOij 

}  /»  and  Needed  for  siring  labels.  */ 

#if  CIQ    /*  Some  CI86  compilers  won't  accept  the  simpler  form.  */ 
static  struct  strlab  xstring} 
xstring. flag=l} 
strcpy( xstring. si,"  310112")} 
strcpy< xstring. s2,"  310113")} 
strcpy(xstring.s3,"  310114")} 
strcpy( xstring. s4,"  310115")} 
strcpy( xstring. s5,"  310116" )} 
strcpyC xstring. s6,"  310117")! 
strcpy(xstring.s7,"  310118" )} 
strcpy( xstring. s8,"  310119")} 
strcpy(xstring.s9,"  310112")} 
*trcpy< xstring. slO,"  310113")} 
Seise 
static  struct  strlab  xstring  =         /»  begin  */ 

1,"","  310112","  310113","  310114","  310115" 

,  "  310116","  310117","  310118","  310119",""  } 
Sendif 

strcpyC f ilename,"graf")} 

if  (Unfile  =  fopen(  f  ilenama,"r"))  ==  NULL) 

pr intf ("Sorry,  cannot  open  2s" »  filename)} 
return} 

for( i=0}i<=9ji*+) 

ati]=0i 
bti]=0} 
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clil=Ov 
dtil=0) 

count  =  Ov 
•  P« 

while  ((flag  s  fseanf( inf ile,  "XdZfZf",  C.7,«cost,abudgetl) )  !=  EOF) 

/*  begin  whila        »/ 
at count!  *  cost/1000)  /»  cost  «/ 

cl count!  a  budgetl/1000)         /*  cost  function  budget  */ 
dl count]  =  ( budge tl/cost  1/1000 »   /*  cost  function  budget  */ 
count***  /*  increment  count     */ 

/*  end  while  */ 

f close ( inf ile  1) 

/*  These  are  the  strings.  */ 

settime( )  /*  Start  timing  of  run.  */ 

bgnplot(l>,g'i"lyonsa.tKf"))  /*  Initialize  plot.  Graphic  mode  */ 
startplotl )) 

/*  Change  to  simplex  Greek  and  math  */ 
f ont (4, "simplex. fnt", '  310' , "duplex. fnt",  •  311'  /'complex. fnt" 

,*  31^,,"simgrma.fnt",,  313')) 
xlab( Sxstring))  /*  Turn  on  string  labels  */ 

cross! 0 ) } 

color* 0 )  ) 

physor( 0.0,0.0))  /*RESET  DEFAULT  ORIGIN*/ 

page( 9.0*6.855)) 

area2d(7.5,6.5)) 

nxdiv=8)        /*  Desired  9   of  x-axis  divisions  */ 

nydiv=6j        /*  Desired  9   of  y-axis  divisions  */ 

npts=8)        /*  Number  of  points  in  x  and  y  vectors  */ 

fori i=0 ) i<count ) i*+ )  b( i ]=( float )( i+1 ) ) 

color < 6  )\ 

grid(2))        /»  Put  fine  dotted  grid  on  plot  */ 
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graf  C "",0. ,1. ,9. ,"Z-1.0f",0. ,1. ,10. )» 

xstring.flag=0j   /*  Turn  off  string  label  option  */ 

xlab( ixstring  )»   /*  aftar  axas  havo  been  drawn.  */ 

color(3)) 

xnameC  312Cost  Function" )»   /*  Label  for  x-axis  */ 

heading! "  311BUDGET" )»        /*  Title  of  plot  */ 

yname("  312Millions"))       /»  Label  for  y-axis  */ 

color!  2 ) | 

pltfnt(12.5,  8.2,  ■  312110",  .5,  0)) 

bar ( npts  »b,a  >npts , 2 ) ) 

endplotl )»  /»  Terminate  first  plot  «/ 

stopplott  )\  /*  Close  files  and  quit  */ 

/»  end  main  */ 

5.   PLOT. C 

/*  program  module  Plot.c  «/ 

/*  version  1.0  »/ 

/*  authors:   Richard  N.  Woodman  */ 

/*  Michael  F  Rail  »/ 

/»  »/ 
/*          Program  last  modified  20  January  1986        */ 

/*  */ 

/*  This  program  was  produced  on  an  IBM  clone  using  */ 

/*  DOS  3.1.   Written  with  the  C  programming  language,  */ 

/*  utilizing  the  GraphicC  utility  software.  */ 

/*  »/ 

/*  This  is  called  directly  from  DOS  after  the  PROJ  */ 

/*  system  has  been  processed.   This  module  produces  a  */ 

/*  line  graph.   The  solid  line  being  the  budget,  with  the  */ 

/*  broken  line  representing  the  expenses.   It  is  plotted  */ 

/*  by  month.  */ 

/*  */ 
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/ft  Files  used:   GRAF1,  BUD                               «/ 

/ft  »/ 

/ft  External  Calls:   Nona                               ft/ 

/»  »/ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

«include  "stdio.h" 
* include  "graphics. h" 

int  .stack  *  600001 

main( argc > argv ) 
int  argc» 
char  ftargvt  )» 

/ft  begin  main  ft/ 

FILE  »infile»  *outfile,  ftfopenl  )» 

/ft  Oeclare  variables  ft/ 

char  month(9),  filanameJ  SO  ),  name<<»)> 

float  cost*  xl(14),x2(14),yl(14),x(301),  y(201)>  z(301)t 

float  a(301)>  b(14),  c<301)>  d(301)» 

int  counts »cf>  flag*  i»  count*  nxdiv,  nydiv*  npts>  npt» 

long  gettime( )\ 

float  newbudget> budget*  budgetl>  budgets >  zl(13)>  w»  wl> 
•  P» 

struct  labstra  /ft  begin  Needed  for  string  labels,  ft/ 
int  flag) 
char  sl(10)» 
char  s2(10)> 
char  s3(10)» 
char  s4(10)> 
char  s5( 10)) 
char  $6(10), 
char  s7(  10  )  > 
char  s8(10)> 
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char  s9(l<m 
char  slOUOH 
char  slKlOU 
char  sl2(10)» 
char  S13I10H 
char  sl<+(10H 

\  /*   and  Naadad  for  string  labels.  */ 

*if  CIQ  /*  Soma  CZ86  compilers  won't  accept  the  simpler  form.  »/ 
static  struct  labstr  mstringt 
nstring.flag*!} 
strcpy(nstring.sl,"  3100CTN)» 
strcpy(nstring.s2,"  310N0V")» 
strcpy(nstring.s3,"  3100EC"U 
strcpy(nstring.s4,"  310JAN"H 
strcpy(nstring.s5,"  310FEB")> 
strcpy(nstring.s6,"  310MAR")» 
strepy<nstring.s7,"  310APR")» 
strcpy<nstring.s6,"  310MAY")» 
strcpy(nstring.s9,"  310JUN")) 
strepyCnstring.slO,"  310JUU")| 
strepyCnstring.sll,"  310AUG"  )i 
strcpy(nstring.sl2,"  310SEP")» 
strcpy<nstring.sl3,"  3100CT")» 
strcpy<nstring.sl4>"  310NOV"  )j 
Seise 
static  struct  labstra  nstring  »        /*  begin  */ 

1,"","  3100CT","  310NOV0,"  SIODEC","  310JAN",  ■  310FEB" 

,"  310MAR","  310APR","  310MAY","  310JUN","  310JUL" 

,"  310AUG","  SIOSEP'V"  \ 
ftendif 

strcpyt  filename* "bud")) 

if  (Unfile  =  fopen( f ilename,"r") )  ==  NULL) 

printf( "Sorry »  cannot  open  Xs">  filename  )\ 
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return) 

for(i=0»i<=l»i*+) 

xtil*0) 
yti]=0» 
zlil-Oi 

•P* 

flag  *  f scant ( inf ile,  nZf",«budget)) 
newbudget  ■  ( budgat J/1000 »  /*  budget      »/ 

f close* inf i la ) ) 

w=Oj 

f or( i=l \ i<=13 t i+* ) 

yt i ]*( newbudget/12 )*w » 
w*l newbudget/12 )*w  | 

strcpy(  f ilanama , "graf 1" ) t 
if  (Unfile  ■  fopan(  f  ilanama,' V"))  ==  NULL)  . 

printf (  "Sorry,  cannot  open  'As",   filename)} 
return} 

wl=0» 
count  a  1) 
while  ((flag  ■  fscanf  (  inf  ile,  "'/.f'/.s"  ,&cos\,lmonth))    !=  EOF) 

zl count!  =  (cost*wl)/1000)     /*  cost  */ 
wl=(cost)+wli 
count+*i    /*   increment  count  */ 

/*  end  while  */ 
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fclose( infile  )\ 

/*     begin  full  paga  lina  plot  by  itself  */ 

settimei  )\  /*   Start  timing  of  run.  */ 

bgnplotCU'g' ,"aplot.tkf"  )»   /*  Initialize  plot.  Graphic  mode  */ 

startplot(0)» 

/*  Change  to  simplex  Greek  and  math  */ 
font(4»nsimplax.fntn,1  310' , "duplex. fnt",'  311' 

, "complex. fnt",'  312' ,"simgrma.fnt", •  313*  )> 
xlab( instring ) l       /*  Turn  on  string  labels  */ 
cross( 0 ) v 
colon  0 ) ) 

physor( 0.0,0.0))     /*RESET  DEFAULT  ORIGIN*/ 
page( 9.0*6.855) I 
area2d( 7.5,6.0 )» 

box(  )»         /*  Draw  a  box  around  the  plot  */ 
grid! 2)»       /*  Put  fine  dotted  grid  on  plot  */ 
f ntchg( '  310 ' )|  /*  Changes  fonts  for  the  axes  */ 
for(i=l»i<13»i*+) 

/*  budget  line  */ 
xtil=<  float  Mi+IH 

for( i=l \ i<=count \ i** ) 

/*  budget  line  */ 
xlt  i  l=i  float )(  i+l ) » 

nxdiv=12»  /*  Desired  8  of  x-axis  divisions  */ 
nydiv=5»   /*  Desired  *  of  divisions  on  linear  axis  */ 

npts  =  12  J 
graf("",0. ,1. ,12. ,"Z-1.0f",0.  ,1.  ,10.  ), 

nstring.flag=0)  /*  Turn  off  string  label  option  */ 
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xlab(  Snstring))  /*  after  axes  have  been  drawn.  */ 

color! 14 ) » 

xname<"  SlOEnd  of  Month" ) i  /*   Make  labels  */ 

yname("  310Millions" )» 

heading( "  311Budget  vs  Expenses" ) \ 

solid(  )| 

color! 10 ) \ 

pltfnt(9.S,  9.2,  "  312110",  .5,  OH 

eurve(x»y,npts,0)»  /*  Draw  curve  with  no  symbols  */ 

chndshl  )j       /*  Use  chain-dashed  line  for  second  curve  */ 

color! 12 H 

curve(xl,z,count,0))  /*  Plot  second  curve  */ 

endplot(  )\  /*   Terminate  second  plot  */ 

stopplot(  )\ 

/»  end  main  */ 

6.   COMBO.  C 

/MXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXKKXXXXXXXXXXXXXXXXXXXXXXXX/ 

/*  program  module  Combo. c  */ 

/*  version  1.0  »/ 

/*  authors:   Richard  N.  Woodman  */ 

/*  Michael  F  Rail  */ 

/*  */ 
/*          Program  last  modified  20  January  1986        */ 

/*  */ 

/*  This  program  was  produced  on  an  IBM  clone  using  »/ 

/*  DOS  3.1.  Written  with  the  C  programming  language,  */ 

/*  utilizing  the  GraphicC  utility  software.  */ 

/*  */ 

/*  This  is  called  directly  from  DOS  after  the  PROJ  */ 

/*  system  has  been  processed.   This  module  produces  a  */ 

/*  full  page  line  graph,  with  the  solid  line  representing  */ 

/*  the  budget  and  the  broken  line  representing  the  */ 

/*  expenses,  by  the  month  Inset  in  the  upper  left  hand  */ 
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/*  corner  in  a  single  bar  graph,  reduced  in  size  that     */ 

/»  plots  the  budget  for  each  cost  center.  */ 

/*  »/ 

/*  Files  used:   GRAF1,  BUD,  GRAF  */ 

/*  »/ 

/*  External  Calls:   None  */ 

/»  */ 

» include  "stdio.h" 
ff include  "graphics. h" 

int  .stack  =  60000  \ 

ma  in( argc ,argv t 
int  argc j 
char  *argv( It 

/*  begin  main  */ 

FILE  Kin-file*  *cutfile,  «fopen(  1, 

/*  Declare  variables  */ 

char  month(9)»  f  ilename(  30  )>  name(4)> 

float  budg*newbudget,cost*  xl<  14  )  ,x2<  1<+  )  t 

float  ylll-+),x(301),  y(301),  z(301)> 

float  a(301),  b<14),  c<301),  d< 301 H 

int  counts >cf»  flag,  i,  count*  nxdiv,  nydiv,  npts* 

long  gettime( )> 

float  center  *expn  * budget  .budge  tl >budge  1 2 ,zl ( 13 ) , w , wl * 
•  pa 

struct  strlab   /*  begin  Needed  for  string  labels.  */ 
int  flag* 
char  sl(10)» 
char  s2(10)» 
char  s3( 10  )» 
char  s4( 10 )> 
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char  s5(10)) 
char  s6( 10)) 
char  s7( 10)) 
char  s8(10)j 
char  s9(10)) 
char  sl0(10)) 
char  sill  10  )> 
char  sl2(10)) 
char  sl3(10)) 
char  sl4(10)» 

)  /*  and  Noadad  for  string  labals.  »/ 

*if  CIQ  /*  Soma  CI86  compilers  won't  accept  the  simpler  form.  */ 
static  struct  strlab  xstring) 
xstring. flag=l) 
strcpyt xstring. si,"  310112")) 
strcpy( xstring. s2,"  310113")) 
strcpy< xstring. s3,"  310114" )| 
strcpyCxstring.s*,"  310115")) 
strcpy( xstring. s5,"  310116")) 
strcpy(xstring.s6,"  310117")) 
strcpy<xstring.s7,"  310118")) 
strcpy(xstring.s8,"  310119")) 
strcpy(xstring.s9,"  310112")) 
strcpy(xstring.slO,"  310113")) 
Seise 
static  struct  strlab  xstring  =         /*  begin  */ 

1,"","  310112","  310113","  310114","  310115" 
,"  310116","  310117","  310118","  310119",""  ) 
Send if 

struct  labstr   /*  begin  Needed  for  string  labels.  */ 
int  flag) 
char  sl-10-) 
char  S2-10-) 
char  s3-10-v 
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char  s4-10-» 

char  s5-10-» 

char  s6-10-» 

chap  s7-10-» 

chap  s8-10-j 

chap  s9-10-» 

chap  slO-10-» 

chap  sll-10-j 

chap  sl2-10-j 

chap  s 13-10-1 

chap  sW-10-» 
»  /»  and  Neadod  for  string  labals.  »/ 

•  pa 

8if  CIQ  /*  Soma  CI86  compilers  won't  accept  the  simpler  form.  */ 

static  struct  labstr  mstring) 

■string. flag=l t 

strcpy< mstring. si,"  3100CTM1» 

strcpy<mstring.s2,"  310NOV")» 

strcpyt mstring. s3,"  310DEC")) 

strcpyl mstring. s4,"  310JAN"  1 » 

strcpyl mstring. s5,M  310FEB")» 

strcpyl mstring. s6,"  310MARM)» 

strcpy(mstring.s7,"  310APR")» 

strcpy< mstring. s8,"  310MAY")» 

strcpyl mstring. s9,"  310JUN")» 

strcpyl mstring.slO,"  310JUL")» 

strcpyt mstring. sll,"  310AUG" )» 

stpcpy(mstping.sl2,"  310SEP"H 

strcpy< mstring. sl3,"  3100CT" H 

strcpy(mstring.sl4,"  310NOV")j 

#else 

static  struct   labstr  mstring  »  /*     begin     */ 

1,»»,»   3100CT","   310NOVV   310DEC","   310JAN" 
,"   310FEB","   310MAR","   310APR","   310MAY" 
,"   310JVJN","   310JUL","   310AUG","   310SEP,,,,,M    \ 
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Sendif 


strcpyJ f ilename,"bud" ) ) 

if  (Unfile  =  fopen( f ilename,Hr"))  ■■  NULL) 

/»     begin    if     */ 

printf(  "Sorry ,  cannot  open  '/.s"t   filename)) 

return) 

/*  end  if  */ 

for(i=0)i<=l)i++) 

xtil=0) 
y(i]=0) 
zlil*0s 

flag  =  fscanf (  inf  ile,  "Zf'SSbudget)) 
newbudget  =  (budget  J/1000 \      /*     budget      */ 

felose( inf ile)) 

w=0) 

for(i=l)i<=13)i++) 

y[ i  ]  =  ( newbudget/12 )+w i 
w»( newbudget/lZ  )+w) 


•  pa 


strcpy( f ilenama , "graf 1" ) ) 
if  (Unfile  =  fopen(  filename,  "r"  ) )  ■■  NULL) 
/*  begin  if  */ 
printft  "Sorry,  cannot  open  7.s" ,  filename)) 
return) 
/»  end  if  */ 

wl=0) 
count  =1) 
while  ((flag  =  fscanf  (  inf  ile,  "Xf/fs"  ,Scost  ,Smonth  ) )  !=  EOF) 
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/*  begin  while     */ 

z[ count]  =  (cost+wl)/1000»     /*  cost  */ 

wl=(cost)+wl* 

count***       /*  increment  count  */ 
/*  end  while  */ 

f close! infile)» 

•trepyl filename ,"gpaf" ) » 
if  (Cinfile  ■  fopen(filename,"r"))  »  NULL) 
/*  begin  if  «/ 
printft "Sorry >  cannot  open  Xs",  filename  )} 
petupnj 
•*  end  if  */ 

m1*0| 

counts  a  0) 
while  ((flag  =  fscanf  (  inf  ile,  "'/.f'/.i'/.i'  ',Scenter,3budg,Sexpn )  )  !=  EOF) 
/*  begin  while      »/ 

b( counts]  *  (budg)/1000»       /»  cost  */ 
counts**)  /»  increment  count  »/ 

/*  end  while   */ 

f close! inf ile)) 

settime!  h   /*  Start  timing  of  pun.  */ 
bgnplotdj'gV'combo.tkfn/*  Initialize  plot.  Graphic  mode  */ 

staptplot( )\ 

/*  Change  to  simplex  Greek  and  math  */ 
font(4,"simplex.fnt",'  310' /'duplex. tot", '  311' 

/•complex. fnt",'  312' ,"simgrma. fnt" , '  313' )» 
xlab( &xstringj  \      /*   Turn  on  string  labels  */ 

cposs(O)) 

color*  0  It 

page( 4.5,3.4275 )\ 

pgshift(1.0,3.4275)j 
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area2d(3.5,2.5)» 

nxdiv=16j   /*  Desired  *  of  x-axis  divisions  */ 
nydiv=6v   /*  Desired  8  of  y-axis  divisions  */ 
npts=8»    /*  Number  of  points  in  x  and  y  vectors  */ 
for(i=0*i<=8u++)  at  il=(  float  )(  i+l)» 

color( 6 ) s 

grid(2)>  /*  Put  fine  dotted  grid  on  plot  */ 

graft  H,,,0.  ,1.  ,9.  ,"Z-l.QfM»0.  ,1.  ,10.  )| 

xstring.f lag=0t  /*  Turn  off  string  label  option  */ 

xlabt ixstring)}  /*  after  axes  have  been  drawn.  */ 

colore  3 ) j 

xnamel"  312Cost  Function"))  /*  Label  for  x-axis  »/ 

heading<"  311BUDGET" )»      /*  Title  of  plot  */ 

ynameC  312Millions")»      /*  Label  for  y-axis  */ 

colore  2 ) s 

pltfnt(12.5,  8.2,  "  312110",  .5,  0)} 

bar ( nxdiv ,a ,b ,npts , 2 ) \ 

/*  full  page  second  line  plot  */ 

/*  Change  to  simplex  Greek  and  math  */ 
font( 4, "simplex. fnt",'  310' ."duplex. fnt", *  311' 

/•complex. fnt",'  312' /'simgrma.fnt", '  313' )» 
xlabl Sms  tring ) \ 
cross! 0  H 
colore  0)) 

physor< 0.0,0.0)1   /*RESET  DEFAULT  ORIGIN*/ 
page( 9.0,6. 855)1 
area 2d ( 8.5,6.0 )t 

box(  )»  /*  Draw  a  box  around  the  plot  */ 

grid!  on        /*  Put  fine  dotted  grid  on  plot  */ 
fntchg( •  310'  )»  /*  Changes  fonts  for  the  axes  */ 
fori i=l>i<13*i*+) 

/*  budget         */ 
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xlil«<  float  )(i+l)» 

for(i=lji<count»i*+) 

/*  budget  »/ 

xllil=<  float  Hi+1)» 

nxdiv=12>   /*  Dasirad  9   of  x-axis  divisions  */ 
nydiv-S)    /»  Dasirad  *  of  divisions  on  linear  axis  */ 
npts  »  12) 
graf  (m,,0.  ,1.  ,12.  ,"X-1.0f",0.  ,2.  ,10.  )* 
mstring. flag=0v 
xlab(  Smstring ) \ 
color! 14 )» 

xnameC  310End  of  Month"  )\   /*   Maka  labels  */ 
ynameC*  310Millions" )» 
color (10)) 

curve(x,y>npts,0))   /*  Draw  curve  with  no  symbols  »/ 
chndshC )i    /*  Usa  chain-dashed  line  for  second  curve  */ 
colore  12 )» 

curvet  xl,z, count, OH/*  Plot  second  curve  */ 
endplot(  H  /*  Terminate  second  plot  */ 

stopplot(  H         /*  Close  files  and  quit  */ 

/*     end  main     */ 

7.       TRIPBAR.  C 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXEXXXXXXX/ 

/*  program  module  TripBar.c  */ 

/*  version  1.0  */ 

/*  authors:   Richard  N.  Woodman  */ 

/*  Michael  F  Rail  */ 

/*  */ 

/*  Program  last  modified  20  January  1986  */ 

/*  */ 
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/*  This  program  was  produced  on  an  IBM  clone  using  */ 

/*  DOS  3.1.   Written  with  the  C  programming  language,  */ 

/*  utilizing  the  GraphicC  utility  software.  »/ 

/*  */ 

/*  This  is  called  directly  from  DOS  after  the  PROJ  »/ 

/*  system  has  been  processed.   This  module  produces  a  */ 

/*  Triple  bar  graph.  The  middle  bar  represents  the  budget  */ 

/*  for  each  cost  center >  left  bar  represents  the  expenses  */ 

/*  and  the  right  bar  represents  the  percentage  of  the  */ 

/*  budget  expended.  */ 

/*  »/ 

/*  Files  used:  GRAF  »/ 

/*  */ 

/*  External  Calls:  None  */ 

/*  «/ 

/XXXMXXXXXXXXXXXXXXXXXXXXXXXMXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 

» include  "stdio.h" 
* include  "graphics. h" 

int  .stack  »  60000 s 

ma  ini argc . argv ) 
int  argct 
char  *argv<  )> 

/*  begin  main  */ 

FILE  ftinfile*  *outfile,  *fopen(  )» 

/»  Declare  variables  */ 
char  tnonth(3)»  f  ilename(  30  ),  name(4U 

float  cost*  xl(14)>x2(14)»ylfl*)*x(301)»  y(301),  z(301)> 
float  a<301),  b(14),  c(301),  d<301)» 
int  cf»  flag,  i,  county  nxdiv,  nydiv,  nptsi 
long  get time*  )  \ 
float  budget,  budge tl,  budgetZ,  zl(13),  w,  wl> 
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struct  xlab     /*  begin  Needed  for  string  labels.  */ 

int  flag | 

char  sl(10)) 

char  s2(10)) 

char  $3(10)) 

char  s4(10)» 

char  s5(10)) 

char  s6(10)) 

char  *7<10)) 

char  s8(10)) 

char  s9(10)) 

char  sl0<10)) 

\  /*   end  Needed  for  string  labels.  */ 

ftif  CIQ  /*  Soma  CI86  compilers  won't  accept  the  simpler  form.  */ 
static  struct  xlab  xstring) 
xstring. f lag= 1 \ 
strcpylxstring.sl,"  310112")) 
strcpyt xstring. s2,M  310113")). 
strcpyf xstring. s3,"  310114")) 
strcpyl xstring. s*,"  31011S")) 
strcpyC xstring. s5,"  310116" )) 
strcpy(xstring.s6,"  310117" )) 
strcpyC xstring. s7,"  310118")) 
strcpyt xstring. s8,"  310119")) 
strcpy( xstring. s9,"  310112")) 
strcpy( xstring. slO,"  310113")) 
ttelse 
static  struct  xlab  xstring  ■  /*  begin  */ 

1, ■•»,"  310112","  310113","  310114", "  31011S" 

,"   310116","   310117"    ,"   310118","   310119",""    ) 
Send if 


strcpy( filename »"graf" )) 

if  (Unfile  =  fopen(  f  ilename,"r"))  ==  NULL) 
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/*  begin  if  */ 

printf( "Sorry,  cannot  open  'As",    filename)) 
returm 
/*  end  if  */ 

for(i=0)i<=9)i*+) 

a(i]BO» 
blil-Oi 
etU*Oi 
dtil-Oi 

count  a  0\ 

while  ((flag  ■  fscanf (  inf ile,  "'/.dZr/.f ,  C.7,Sbudget,£cost ) )  !=  EOF) 

/*  begin  while      */ 

a I count]  =  cost/1000)  /*  cost  */ 

c[ count!  -   budget/1000)  /*  cost  function  budget  */ 

d[ count]  a  ( cost/budget )/100)  /*  cost  function  V.   of  budget  */ 
count ++)                        /*  increment  count  */ 

/*  end  while  */ 

f close* inf ile)) 

/*  These  are  the  strings.  */ 

settimet ))     /*  Start  timing  of  run.  */ 

bgnplot(l,'g' ,"tripbar.tkf"))/*  Initialize  plot.  Graphic  mode  */ 

/*  begin  full  page  bar  plot  */ 

startplot(7)) 

/*  Change  to  simplex  Greek  and  math  */ 
font(4,,•simplex.fnt,,,,  310' , "duplex. fnt'V  311' 

, "complex. fnt",'  312' ,"simgrma.fnt",'  313')) 
xlab( Sxstring ) )   /*  Turn  on  string  labels  */ 

cross ( 0)) 
color ( 0 ) ) 
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physor( 0.0,0.0 )»   /*RESET  DEFAULT  ORIGIN*/ 

page! 9.0,6.855)1 

area2dt 7.5,6.0 )» 

box(  )»         /*  Draw  a  box  around  the  plot  */ 

nxdiv=24|       /*  Desired  *  of  x-axis  divisions  */ 

nydiv=10»       /*  Desired  *  of  y-axis  divisions  */ 

npts=8»        /*  Number  of  points  in  x  and  y  vectors  */ 

forti*0li<9»i++1  xlC il=( float )< i+l)» 

for(i=0»i<9»i*+)  xC il«( float )( i+. 75)1 

for(i=0ji<9>i++)  x2tils( float )( i+1.25)) 

color! 6 ) | 

grid(2)>    /*  Put  fine  dotted  grid  on  plot  */ 

graf("",0.  ,1.  ,9.  ,"/J-1.0f",0.  ,1.  ,10.  )I 

xstring.flag=0»  /*  Turn  off  string  label  option  */ 

xlab( txstring ) I  /*  after  axes  have  been  drawn.  */ 

color ( 3  )  \ 

xnamet"  312Cost  Function")!  /*  Label  for  x-axis  */ 

heading* "  311BUDGET")»      /*  Title  of  plot  */ 

ynamaC'  312MillionaH))      /*  Label  for  y-axis  */ 

color < 2 )  \ 

pltfnt(7.5,  10.2,  "  310110",  .5,  0)» 

bar( nxdiv ,xl ,a ,npts , 2 ) \ 
bar  ( nxdiv  ,x  ,c  ,npts  ,<♦ )  s 
bar(nxdiv,x2,d,npts,5)( 

endplott  )»  /*  Terminate  first  plot  */ 

stopplot*  )i        /*  Close  files  and  quit  »/ 

/*  end  main  »/ 
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